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This thesis examines the use of an inexpensive 
sorirere.,al microcomputer for tne preparation of Naval 
Revorting structure Operational Reports. These highly 
mroageeemrepOrts provide critical unit invormation used by 
Peete ronal Confrand Autnority and Joint Chiefs of Staff in 
assessing the nation’s defense posture. Since these reports 
She preeessed by corputer, correct forratting and data entry 
are estientiel to preserve the timeliness and accuracy of tne 
P27OGmeri1on. The requirements of a Report Origination Syster 
are investigated fror the reérspective of the syster 
operator, the message drafter and the message releasing 
SeunoOmluy. interfaces are dévelored which provide for system 
eoobaeae1on to different hardware configurations. A subset 
woevugemuoe laneuaze 15 wsec to aliow structured programming 
anid data abstraction techniques. slements of the Unit Status 
and Identity FEeport (UNITREP) are implemented using this 
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IWemeeneecd = = 10r Curreit dnd correct cormand and control 
information within the rilitvary has long been recognized. 
There will most lixely never be a time when the services 
possess assets that are considered in excess of those re- 
earreaeto perform the assigned missions.»With the advance of 
technology over the past forty years we have seen a 
continuing decrease in the time required to act or react to 
a@ given situation. The advent of the corputer provided both 
the cause and the means to récuce decision raking tire. [a 
these days when “rapid deployment has become a keyword, the 
ability of the higher authority ‘o quickly and precisely 
judge the disposition and status of forces has become 


paramount. 


pee leer an CELI 

fomGmtdimdassuch an aperaisal of forces, hundreds of bits 
of information (normaily submitted via message reports) 
relating to location, personnel manning and training, equipd- 
Ment status and overall readiness condition, for many 
MiGgiveawal units must be examined. 

At the transmitting end we have the originator who must 
eéizjt through volumes of instructions to determine WHAT is 


Teauired to be reported, WEEN it is required to be reported 


JE gk 





and HOW it is to be reported. Ail too often the drafting 
process reverts to examining past reports for tne general 
form and content.-Thus errors tend to perpetuate themselves. 

At the receiving end, the World Wide Military Command 
and Control System (WWMCCS ) euproeee the National Commane 
Authority ond the Joint Chiefs of Staff ty processing, 
correlating and presenting the information. The computers on 
which the WWYCCS is based, for all their speed and 
MmecliSicn, Can only respond to that inforratiou for which 
they are programmed. Although that pregramming may be 
arbitrarily complex (to include such items as look-up 
tables, alternative spellings/formats and sephisticated 
deduction algcrithms) it is still finite and cannot possibly 
cover all situations. When the computer cannot ceéternine the 
logical content of a received report it trust queue that 
report, awaiting a human operator’s intervention and 
suosequent COrmect LCE. The Cperator, WOON ranually 
mrocessing the report, MAY be able to deduce what was meant 
mom Jemmererorted, or ray te forced to guess. [ft is nat 
reasonable to assume that the overator will aiwayvs correctly 
determine what was intended by an Originating unit. 

Such is the problem : The computer receiving the 
mcormapeon requires correct forfat and Content in order to 
provide accurate and timely information; the huran sending 
Paes “intortration dces net easily communicate in computer 


Merms, tending more towards a free format, uncoded style. 


ee 





B. EARLY EFFORTS 

It should be clear that the computer is both the prota- 
gonist and the antagonist in this situation. It CAN vrovide 
current and correct information to the decision maker IF it 
receives the correct information in the correct format in 
the first rlece. However, if the information is not proper 
Mimeectcrmdt Or content, correcting it wi@l at best create a 
time late problem and at worst result in contamination of 
the Warccs Catabase with ineorrect t1terpetatiors. 
Concluding that corputerized information processing was the 
Mest means of satisfying the stringent tire requirements 
considering the voluminous data, several approaches weré 
meeereroted. All depended on the originator sending accurate, 
Peareely, cerocrerly formatted information. 

1. Composite Report (COMPRzP) 

A Compecsite Reporting System (COMPREP) was designed 
acest ested by Commander First Fleet in 1671. This was aa 
attempt to reduce the number of required operational reports 
Pemecmeo tuLIng daiunified report formatted for automatic 
@atad orocessing. “With the limited resources available the 
system was not sufficiently develoved to prove its worth as 
an effective management tool. The main deficiency proved to 
be the coded format which made the report difficult for even 
the Orileinator to decipher “once the report had been 


prevarecd. 





mes Study, concluded in 1975, seteas its goalethe 
corbination of the Naval Status of Forces Report 
(NAVFORSTAT), Movement Report (MOVEREP), Casualty keport 
(CASREP) and Emergency Military Standard PRequestioning and 
Issue Frocedures (MILSTRIP) into a single reporting system. 
peeceDatate reporting structure and training for its use were 
developed. This system was not recommended because it did 
mot totally integrate required operational revorts. the 
Tessages were not easily drafted and the final message was 
PomesGasadly understood by the criginator. The test and 
evaluation (T & FE) report concluded that it was basically a 
rehash of the the existing system with little genuine 
improvement. {Ref. 1] 


Operations Rerorting System (CORS) 


— o_— Ge ==. oe 


5. Composit 


es & eas = 


1 


ad 


eflectineg on the conclusions of the COMPREP T& k& 
report, the goals of COMPREP were re-evaluated. This effort, 
designated the Composite Operations Reporting System, was 
conducted between the Office of the Chief of Naval 
Operations (OPNAV) CORS Steering Committee and the Naval 
Electronics Systems Command (NAVELEX). The goals of the CORS 

were: 
-—- to provide alternatives for a reporting system which 
would provide timely and accurate data to required 


levels of command 


14 





(Oe Minimize reporting requirements of indivicual 
units ty combining imployment Schedule, Movement 
Reports, Casualty Reports and Naval Status of Forces 
Reports 

“=~ to provide significant improverents in the read- 
eclini uy, draftability and communications systems 
impact. 

Or twsive alternatives proposed, the final recommendation 
Was ft0 develop a system in which the originator would 
Tanually draft simple, readable, formatted messages using 
meme -ined forms ane decision logic trees. This alternative 
was mudgmd | most feasible due to its «ability to be 


implemented early. The benefit of a computer based Report 


©) 


1ation System (RCS) in the drafting of the messages was 


3 ? 
Bae 4 


, 


realized hut not recommended due to economic constraints. 
Ctner alternatives rejected were strict narrative reports 
with manual insertion into the database by operators at the 
receiving sites and limited narrative reports with a special 
front end text ovrocessor at the receiving site. these 
alternatives could not reasonably meet schedule, technology 
or economic contraints at that time. (Ref. 2] 
4, Report Origination System (ROS) 

The concept of a computer based system to Support 

the originator in the preparation or formatted reports 


hed been exrlored during the CCHS effort. Such a system was 


conceived to have the following vroperties/capabilities: 


co 





== em 1 CRocorpuLler cased 

=——— Vemirenu drive 

—— provide a screen display similar in format to the 
Beduined Tenor? 

—- perform error checking in such ereas as proper alpha- 
numéric characters, field length and logical content, 

au ace §€6C hardcopy Output of the required report in 


acceptavle message format. 


In Lecerber iSv7€ Eolyouak (Ref. 3] of the Naval Post- 
graduate School issued 4 thesis regarding the implerentation 
of the ROS for a NAVFORSTAT on a microcomputer system. This 
ROS was coded in Tntel Corporation’ s PL/M systems language 
for an &@E@ based Intellec - 8 mainframe with 16K of main 
rerory. Subseauently;, in June 1977, Godley ([Ref. 4] 
completed a follew-on thesis pased on the same herdware but 


expanded to include gen2ral formatted reports. 


GC. RECENT ESEVELCPMENTS 

Following the COPS report, several different areas were 
investigated to gather the information necessary to revamr 
the operational reporting system. These efforts concentrated 
on defining the desired data, COnGNeEvIN2 “a “Study ato 
determine the source of errors in the current system, 
senenvewene a ROS prototype development ena test and en 


eraminagtion of systems available to the :leet. 
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As previously stated, one ot the goals of the CORS 

WwaS to develop an opérations reporting system which was 
unified, easy to understand in both concept and output and 
which gErevided a simple message drafting Capability. 
Consequently, the Chief of Naval Operations, OP-€43, was 
Me egtaced a5 the céntral point of centact and approval 
authority fcr message text formatting and daté element issue 
and activities within the Tepartrent of the Navy. Intense 
Seeiort resuited in the February 1962 promulgation of the 
meeposec OPNAVINST 3503.x series: Navy Reporting Structure 
Operational Reports [{Ref. 5]. This seven volume instruction 
@onsists of the following: 

Cereavinot £OO0S.1 NRS - General Instructions 

OPNAVINST 3803.2 NRS - Staff Report (STAFFRIP) 

OPNAVINST 25@3.3 NRS - Erploymrent Scheiule Report (EMSR=EP) 

OPNAVINST ZE@Z.4 NES - Casualty Report (CASREP) 

PENAVING. GE03.5 NARS —- Unit Status and Identity Report 

(UNITREP | 

OPNAVINST 3523.6 NBS - Surface Moverent Report (SURFMOVE) 
OPNAVINST Z&@3.7 NRS - Submarine Movement Report (SUBMOVE) 
CPNAVINST 502.1 summarizes the NES operational reports, 
sets responsibilities of cognizant commands, details the 
ranagerent of the program and establishes clear guidelines 
neleatodremero tOrmatting procedures and Wessege preparation. 
DioMewiere 1NStructions in the serves relate to spé€cific 


momOnucmemacd  ctcrovide reporting requirerents,;, data set and 


Field descriptions, look up tables and sample worksheets for 
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Table 1-1. Formatted Message Irror Study Analysis 


DATA CCNTENT ERRCRS PERCENT OF ERRORS 
Character Tyve eel 
Calculations/Associations 14.3 
Message Identification 4.7 
Valve Misratch Zee 
Tate-Time Group as 
Position lee 


FCRMAT/STRUCTURE ERRRORS 


heserictor 9.¢ 
sequence Dee 
Missing Mandatory 9.4 
Perireat Relationships ee 
size o.9 
Duplicates Goer 


Table 1-2. Average Time Delay for Report Messages in Error 


TYPE MESSAGE TOTAL TIME TRDAY 
MCVREP oes ech eal 
WNT TRG Oo hrs 45 rede 
RAINFORM 7 hrs 44 min 
CASREP SS ars 22 min 
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Apperdix 3). The contractor, Sterling Data Applications 
Incorporated of Sterling VA., programmed the ROS in the 
PFASIC language on an SDS 428 microcomputer system. In 
addition to providing a hard copy ressage output, the system 
also préerared a puncned paper tape compatible with 
communications equipment aboard ship. This prevented typing 
errors during message center preparations for transmittal. 
the system was deplcyed atoard the USS CALIFORNIA (CGN-36) 
meoneet april 1981 through 3 June 1981 for a ROS Prototype 
Fevelopment Test. Unfortunately AWP 7 Kev A, App. B was not 
meremSec in tire for the test which necessitated review 
Buaeme the then current and prorosed instructions. Duel 
ressage logs were maintained for the @1 messages processed 
undér the existing and proposed systems. tzrror checking was 
mecompliched after deployment by compvaring these logs and 
Sonaucting an error aqueve analysis for CASRHPs from the 
CALIFORNI:. 

The test noted that commercial hardware could function 
successfully in the shipboard environment. Only one hardware 
failure was noted -— a read/write disk head disengagement 
Premios State 4 (10-15 degrees roll, S=7 degrees pitcm, 
4-8 “oot waves) operations. This was corrected by 
positioning the ricrocomputer at an angle to the ships roll 
axis. Four presumed software failures occured on the afloat 
System. However none of these failures could be recreated at 


the test site ashore. The report implied that the afloat 
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foebures were cue"™to Gperator error. One software failure 
Sceurec at the store site and was corrected. (Ref. 7] 
4. Word Processing Approach 

The @ecision to implement OFNAVINST 35@02.x, Naval 
Reporting Structure Qperation Reports, has been delayed 
pending replacement or récoding of the Foneywell E2809 
computers on which the WWMCCS resides (projected 1987). In 
the meantime the Navy had décided on the Xerox @8€2 Word 
Processor as the standard word processor approved for 
service purchase. Current efforts are aired at providing the 
fleet a fill-in~-the-biank format capability for CASREF ane 
SMoR®E reports as sooh as possible. as 4 fill-in-the-blank 
capability does not ccerTrpletely meet the full requirements of 
Pe Oomcysoen (no data cross checking, error notification, 
eane, ) ; Sterliags Patae™ potted. 01S nis examining the 
meaaelollity cf installing a CF/M toard in the Xerox’ 8E9 te 
Momveruett to a true microcomputer. Initial indications are 
that this is a possible, though costly alternative. 


Additionaliy, SDA has recoded the prototype ROS CASREP from 


ct 
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Speemeeanguage t> the CCEOL language in compliance with 
moe standards. 

Maem purpose of the HOS 1s ¢lkeéar = overcome “tne 
boundryes.co: the man=computer interface dy providing the tne 
ren at Sé€a the tools to easily, rapidly and accurately; 


Gmeit, sorepare, review and transmit rormatted reports to 


higher authcrity ashore. 





Considerable effort has gone into proving that the 
concept is viatle and effective. With the program restricted 
by current budgetary constraints and actual implementation 
dependent on the installation of the new WWMCCS computers or 
recoding of the current system to accept the new reports, it 
was decided to exarine the ROS in a future context. The 
Recent macrease 1 the capadilities of commercial 
mierocomputer equiprent and software tools, and the 
concurrent decrease in cost, aprears [o make tne planned 


Peolerentation of the ROS concept all the more desirable. 


aye 
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The puMpese “or “Khe ROS is tet reduce "Serres in 
Geereti@aal reports submitted from the unit lsvel. The 
Eomecovr = 0emene the KOS is to provide the sPieigatocr a 
MrcrocoWputer based systerewhich will simvli?y tire "revort 
Penetrausoa cycle. The proposed benefits of thew ROS are’ a 


ereater ‘eonfiderce in the accuracy of the @ata retrieved 


cet 


frow the WWMCCS database oy weeer command; JUVerer 


eeScereicom of Wredate inPerWation inte whe Gaetawase; Weduc®icn 


om Santpewmer required to correct erroneous revorts at the 
WWMCCS sites; ae Woweped dcdministPative sSwriten or the 
Comeoeiatieae Umlt. TPhree-pr®mary areas snould» Ge afldriessec 
Ween cons@cerinme the design of such & systewr: the user, the 
BardwWare on Which the system is to be beasec ane tne softwere 
meols Witnewhich the systemis to te implemented. 
A. USER CCNSIDEIRATIONS 

In any report generation eyoLe severel RSE a 


distinctions mey be made (e.g. clerk/typist, dnrarter, 
meveeser). “Fach ‘user’ “Was perticular freauiPements row any 
system providing assistance in report generation. 

1. System Cperator 


AG the ost fundamental ievel, the system coerator 


(i.e. the clerk/tyvist}) is responsible for preparaticn of 
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mie “sinal report for transmission anc the maintenafic of 
historical files. His responsitilities would tail data 
entry, data storage and retrieval, and an understanding of 
basic syster capabilities. System operator requirements end 
questions would entail: 

-- How easy 1s the system to learn and operate? 

sa ene Irequeat references to a user S manual recuired? 

-~ Fow “crash” resistant/reliable is the system? 

=~ What is the is the initializetion procedure? 

——mnow 15 cdetea entry accomplished? 

=—- What is the source of the data to >be entered? 

——Mna tv iecmerme indvutl error correction trocedure? 

==—Does the syster provide a ~rorerly® forratted cutrut? 


——eogecsmine SyStemM maintain vast information? i* so, is 
that information easy to access? 


-- Does the syster rake the job easier? 


Zoeebra f tier 


epee report drafter must @¢@€termine when conditions 
require a réport to be submitted. Pertinent information rust 
Deegaviered, usually from several dirferent scurces - one bob? 
which may te previously reported date. The prover format for 
that information is normally decidec by the governizre 
instruction. The drafter may be only mWinirally concerned 
with the operation of the syster or may desire the 
Capability to generate a report in real-time (i.e. without 


the assistance of the syster operator and without a drafting 
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document). Trafter requirements and questions would be 


Slightly different: 


-- How Closely does the system correlate to the 
jostruction that requires the report? 


== Toes the system provide detailed drafting information 
(data fields, field lengths, sources of information 
and requirements for submission)? 


-- Toes the system provide a means of presenting 
all information as currently reported? 


-- Can the system “back-up” to axsy stage in the 
reporting cycle and present information that was 
current as of that time (€.g. when required to verify 
Moatommationd as requested by higher authority)? 

-- How easy is it to learn the system overator’s icd? 

=~Meetnere Surficient information available, on lize at 
the terminal, to assist in the real time preDaration 
Chea Feport ? 


-- Does the system make the job simpler/easier? 
o. Releaser 
The releaser is not concerned with the operation cf 
moe sysven, but primarily directs his attention to the 
Reaulrements to submit the report, the content of what is 
being reported and the ability to understand the report with 
minimal reference to the governing instruction. Releaser 


requirements: 


=—emidiany that the report conforms to the required 
HeOmR I a Us 


=———e Simple guide which is a decoded version of the 


meport, providing a logical grouping of information 
and what that information represents. 
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B. DESIGN REQUIREMENTS 

With the three separate “users” to consider and the 
Variety of their requirements it is clear that a three 
tiered approach is necessary to provide the individual user 
the required features. 


Poesy stem, Operator 


— ee di oes cee ee ee oe oe 


1c 


the system operator’s requirements tend to center 
about the microcomputer syster an@ the RCS program. To 
Satvisy these redquirefents: 


-- Provide a detailed User’s Manual covering such «reas 
as installatiox procedures, veneral OD eTet Lon. 
G@isprays, etc. 


paeuce meal lftgroup data sets tegether in screen displays 
which are annotated in plain language with adequate 
on Scre2n prompts. The screen displays should close- 
PvaeoO! WOWsany drafting docurent,. 


-- The system should be user friendly/fault tolerant. 
There Should be no abnorfal terminations. Any 
Termination requires user notification and orecedures 
Poeee TOLiOwed to resume normal ctreration. 


== Tncorrect entries should trigger clear, concise error 
ressages which inform the user of the error and, 
Meomeaorrogunlate, the voroper action to be taken. 


== een 1. t keyboard input to only those Characters 
gecemtable for Optical Character Reader (OCR) and 
DRL CL ressage transmission codes. All illegal 
Mem uoand 12DUtSesmould be rejected with a0tification 
Poraune user. 


~- Tata entry should be menu driven in cases where only 
G@istwaet choicessareyepossitie- 


-- Where the user must enter data into fields tne input 
Showld be limited to the allowec field lenath. 


——temethe entry is obtained “ror a table, the entry 


should be cross checked against thet table to Ensure 
ieee walla. ty . 
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Fields of fixed formats such as date-time groups, 
latititude-longitude positions should appear as a 
template over which the overator enters the proper 
data. All such ftelds (and associated checksums) 
should be verified. 


Numeric fields should ve verified and range checked. 


Sur/tctal numeric fields shovld be cross checkedi 
ageiest une sum off the component fields. 


Mutually exclusive items shoulde be treated 4s suci 
within the syster and displays. 


Dp ut Ot Unt VOC NN oUGcl hice uLens Ssnou ld Oa 
Dew allowed for the unit-types authorized (e225. ie 
only a ship can repert some iter, anair unit would 
not te allowed to report it). 


The system should provide a two format outctut oction: 
[Il-1735 (OCR) and Standard Naval Message fFormet as 
received during Fleet broadcasts. 


Pratt er 


The drafter is ooviously concerned with assistance 


the prefaration of the report. To provide this service 


syster should: 


Prepare o hardcopy rough drafting forr. Itemrs on the 
form should te keyed to the display screens presented 
to the system speretor and therefore be logically 
grouped. ‘The drafting form should closely follow the 
PaAstructson mequiarilac the Report . Information 
required on the forr will te: 


—-— the data set neme, associated field nares and a 
Pil®ein-erea Of the appropriate field width 


-- source of the information 


-- meaning associated with E€ach field if not self 
explanatory 


—-- conditions for submission of the data set 


-- all currently reported information (in mesSageé 
format) 


ae 





= —topere the proper sfemmet internally. The drafter 
should only provide the neéecéssary information to the 
Saogem Operator rom E1the Imtco the Ba@s:. 


Maditae@ndlly, there is the constraint of the drafter 
operating the system for real-time report g€nération. For 
this re@uirement the drafter will require ail the assistance 
@? the system operator plus: 

=—— Am ad@emtional on ? 


3 
information normally av 
docurent. 
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ee seleaser 
With automatic forratiing, the releaser need only 
Bemcomeerned With the cont@€nt 97 the report. ®xpencing tne 
moueia craiting document to include é€zpvlanations of coded 
Beems and allowing an ontion for orepbaretion of tnis ferme 


Besead On thie inforfation te be rérortes shonula satisfy tais 


recuirement. 


C. BARDWHEE CONS IDERATICNS 

moeeow= ROS showld oly de comsidered a tool if the 
Prevpewration of reports, it shovwldc ve implemented om) 4s 
Scomonrueal ec microcomputer system aS possitle. It sazould act 
pequuere “alsysotem that iswMIL-SPHC compatibde (su'teh as thie 
UYX-20). Off the shel? commercial equipment appears the best 
approach. Uafomeumately the Nave has met 5 tanderdcised 
purchase procedures/requirements for a general DUrDOSsE 


Commercial microcomputer as it has for wore processors. fhe 
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proliferation of commercial rodels thoughout the fleet is 
well known - TRS-8@s, APPLES and EPs to name sceverel. 

The most comron eight-tit microprocessor architecture in 
use today is that of the 2-8¢/8@8@ group. TO have the 
greatest commonality with this group it was deterrined thet 
the microcomputer should be Z-8% tased. Additionally it was 
desired to have dual single-sided single-density disk drives 
to provide a minimum of one-half megabyte of storage. This 
would allow the program exécutabie coce to be contained on 
one disk while cata storage files for past reports couid te 
filed on the other disx. Terminel/keyboard groups are as 
widely varied as microcomputer systems if not more so. The 
requirement was for a full ASCTI keyctoerd with a minirur 23 
line by 7S column terminal display. Other cifferences 
between terminals can ncrmally te accomodated by a sSscftwere 
interface as long as the electrical connection is via the 
Mmiagustmy standard RS—-252. It was cesired that the trinter be 
or tnyempeze feed variety in order to develop the necessary 
procedures On the alignmrent and jadividual pagine 
rechanisrs as would ve used in preparing an OCR Joint 
Messageform ([PD-173). 

On the basis of availibility, an ACS &@@@-1 Altos 
Computer System and a DATAMETIA ELITE c5@Q0 keyboard and 
terminal were selected. A page printer, however, was not 
readily available and a Teletype Corporation Model 42 


continuous line printer was substituted. 
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D. SOFTWARE CCNSIDERATIOCNS 

Since the most common operating system for commercial 
microcomputers is currently TLigital Research’s Contre! 
Program for Microprocessors (CP/M), this system was included 
whenever an operating system was required. Additionally many 
of the language compilers examined fcr the system reauired 
Gey mM. 

As it was desired tc code the system in a structured 
language which allowed data abstraction (looking forward to 
a full system development in the proposed Department of 
Tefense standard langvage ADA [Re’. &8]), several variants of 
PRousaL were examined including UCSD Pascal, JRT rascal, 
SORCIM Pascal and MP+ Pascal (LTigital Research). Initial 
programming began with UCSD Pascal but was atandoned when it 
was discovered that the avallable version did not possess 
the facilities for separate *mrcdule compilation. Coding 
resumed with JRT Pascal but was quickly abandoned for lack 
Opeberotul debugging diagnostics. The exaffination of SORCIN 
or MP+ as analternative was interrupted by the réady 
availability of JANUS/ATA by RR Software, Madison, WI. [Ref. 
See eNUS/ADA is a limited subset of the proposed standard 
but met the reauirerents for a structured language that 
allowed data abstraction, reauired CP/M and ran on a Z-&@ 
based syster. The limitations imposed by the subset will be 
refered toas they applied during the implementation of tne 


system (Chatter IV). 
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LC Suppcrt the reyuirements discussed in Chepter [I 
pevetei divferent comrcuter systems levels rust be @ccressed 
At the most elementary level, Sot tware interraves Mae 


Meme ivalis and trinters are required. As the size cf 2 


Meme Exvanded and it became necessary te shysicaily 
Semasete the ftrezrer irto redules a reans oF meiule 


Meeminiceticr was required. The majority cf tae system 
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Beemer necd with the tapartilitiss which tae mrceréen srovid 
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peeeweemrowm the repert information is erourecd, disviéyed eé 


Mem@ntiained. The NRS UNITREP (Ref. 17), was se 
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Aircraft end Crews Status 

Major Fauipment Status 

Special Caeeactwities Status 
Increased Defense Readiness Status 
Reserve Augmentation Status 


OO i ett, 
MYO OniP 
i i ed 


Mme chapter of the instruction is cevoted to each situation. 
Petariss ter the perticular data sets which comprise the 
Situation and the reporting réauirerents for each are 
provided. Review of the data set summaries for eéach 
Situation revéals that certain data sets aré corron tc all 
Situations. For this reason an additional area, (@) Local 
DerOrmation, was formed to group the common data sets and 
Other message related iters. A “final sitration, (3) Type 
Commander Reports, was created to sSé€varate items which wouid 
be designated to be reported py higher authority. 

Three areas were selected tO deronstrate the 
implementation approach. LOCAL Informatiorn was selected as 
Lae provides elerents common to any NRS Bessa eee 
ADMINISTRATIVE Status was <celected for the relative 
Simplicity of the data sets. ATRCRA?T and CREWS Status was 
maeecemecse tor the complex inter-relatioraships between the 
data components. The selected situaticns and suoporting Gata 


sets/information are detailed in Table 3-1. 


Bee reoGrar “ACTIONS 
Ouceme che logical grouping 02 cata had been coatlrred it 


was necessary to to establish the set o° program actions 


wich could be performed on the deta. 
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1. ACTION -1- : Provide a Draft Document 
PiercaratlLing document supports .foursreaquirements: 

-- It is the drafters worksheet and therefore for each 
data set provides; plain language descriptions of all 
fields, field length limitations, the source of 
information (governing directives or pertinent table 
references) and the data set reporting requirements. 

-- It is the interface between the drafter and the system 
operator. Information presentec conforms directly tec 
the screen displays. 

-- It is the means of reviewing all information a5 
currently reported. Thus éach data set or iter of 
information as previously transmitted is reprocuced 12 
message format. 

Piimemcuthe treans for the releaseneto review, the report 
with minimal reference to the zoverning PS eat Os... 
Therefore it contains plain language definitions ane 
and an explanation of any coded items. 

Since the draft document has a multiple purpose it is 
necessary for the system operator to select tne purpose for 
wWhtoh the docurent is required. This 1s accomplished by 
Limiting the selection to forms based cn previously 
transmitted information or forms based on the current 
information, vrior to actual message transmittal. The syster 
operator aulucioue CE LEC tSeest NOs 1 GU) Oe OT aw hich draft 


jmcormation is required since, in gene@ral, reperts ere 
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prepared for particular situation and do not require the 
draft information available for other situations. 
2. ACTION -2- : Initiate a ort 
This selection allows the program to reset that 
information which is variable for the individual occurence 
mee a report. Cnly one UNITREP ray be in work at a tire. 
mowever, in a full ROS including such iters as CASREPs, 
THE capatility to concurrently prepare several reports 
Should be trovided. 
5. ACTION -S- : Modify Report Information 
This action allows the system operator to change, 
Gee or celete information as required when preparing a 
report. The syster cpeérator selécts the situation to which 
meeereport information applies and program flow is ¢irected 


to the sutrrogramrs for displaying and rodifying that data. 


Ze OL ON ~4— 


— —— oe = ome = — = + —— = mee de ee 


fo satisfy a command’s archiving reauirements, the 
System provides the capability of vroducing hard cody output 
of either the current message (undergoing preraration) or 
back messages (via either serial or date-time grouc 
reference). The information in back messages is not 
alterable ty the system operator. A choice of formats (OCR 
and fleet troadcast) is allowéd. 


S- ACTION -&- : Log the Report as Transmitted 


+ 


ioeeneral the date-time group tor a message 15 jot 


ferererece stntil transmittal. When the date-time group is 





Boolgned “AND provided to the system, report date is filed 
mer possitie fture recall, maintaining a serial/deate-time 
group cross reference. 
C. aCTION -€- : Erase the Current Report 
At times during the revort generation cycle (Figure 
3-2) a report may be either cancelled or so severely altered 
that information és currently provided is useless. This 
action allows the system operator to “fall-back’ to the 
period bvefcre the réport was initially generated. 
@. ACTION ~?- 3 Provice Verification Iaformatigon 
The NPS requires the Fleet Commanders in Chief 
(FLICINCS) to conduct periodic reviews of all réceived unit 
marormation +O insure current and accurate data 1s being 
raintained in the WWMCCS database [Ref. 18, Dara.4.8d]. This 
moon GaelLOws ail Anformation as currently reported bd; the 
Unit to be printed for comparison with the FLTICINC feedback 


verification messege. 


@. ACTIO 
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=8> Soult 
This action allows normal termination of the 
program, maintaining all information as input during tne 


terminal session. 


GC. PROGPAY DISPLAYS 
Qnce the system operator has selected to rodify 
Maeonmatioo fOr a particular situation, control of the 


program passes to the subprogram(s) responsibdle for ellowing 
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modification for the situation. ‘The cisplays are grouped in 
direct correspondence to the drafting document with deta set 
mares and fields notated in full form vice adbreviaticn. tl 
Oepiays dre initially wenu driven (fositicnine cf the 
cursor determines the data SeEus tO "le Sehecvcce sd touts 
allowed) with abbreviated prompts exhitited tc zotify the 
meerator of legal inputs. Additional EELP information is 
available for many items by typing a “?° at the approcriate 
Cursor frosition. Where data fleéid contents are lirited to 
Only a few specific entries the choice is by menu selection. 
Where data field contents are ortained from a table, the 
table is cross checked to allow only a lézai tavle value. 
All special purpose fields (e€:2. date-tire vrouns, Wet/lone 
positions) are checked. All numeric fields are validated and 
@@eckec for relationel comparisons if required. Lata text 
emtry in all other fields is limitec to the *ield leneth as 
Established py the instruction (Ref. 12}. Gbheracters are 
automatically limited to those allowed fC inessaze 
transmissicn codes with automatic conversion or lower case 
menegerse to upper cese. The cursor automaticaily roves te the 
MerG se teledt position when a selection has been mace, the 
Pield length hes been réachéli or the operator terminates 
@ata entry bv a carriage return . The option to reselect 
Mecmomotet ae current display is provided prior to continuing 
Momeche erext display. Display formats are provided in 


Aopendix <A. 





fee LATA STORAGE 

PUL eUNTEREP information is Maintained in a @air of 
external disk files (UNITOO@A, UNITG@A@GE) refered to as the 
Workfile. This arrangement allows buffering of data by 
report in the event of hardware, disk or software failure. 
@ll wodifications are made to the workfile. ther a report is 
teing logged as transmitted (nc further update for that 
serial message is reouired), the Worxfile is copied to 
separate UNITRIE files storage disk inserted in tne 
Meeerocommouner 38: disk drive. The filenames UNITxxxA and 
UNITIxxx£, where xxx represents the report serial nurcer, aré 
msec. this allows the data to be recalled for verification 
Baemessage copy purposes. the workfile is reset «as required 


Beet a 2ew report is initiated. 





iV. - IMPLEMENTATION 
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£04. charter discusses the author’s 80S UNI TREE 
SUBSYSTEM implementation in the Ada language. A review of 
the limitations of the JANUS/ALDA subset, a program overview 
anc a discussion of the the various componeats are provided. 
The ROS UNITREP Cnerator’s Manval (Appendix A) and the ROS 
UNITPREP COMPUTER LISTING (Appendix C) may be refered to for 


rore detailed informaticn. 


meee A SUSSET FESTRICTICNS 
The JAAUS subset of the Ada languege provides many of 
the S@pmisticated features requirec in a2 high level 
language. Tata abstraction and strong data typing allows a 
fueeatbes readable coding style with the ability to uncover 
amemcOorresct @rrors during compilation vice run time. The Ada 
package concept allows a modularization that leads to 
Meealized and easily modifiable code which can be altered 
without serious consequence to the program as a whole. 
Mewever, the lofty g@@ialks of the Ada language do not 
easily lend themselves to implementation on small scale 
ricrocomputers. Cuoting from the JANUS/ADA Package User 
Manual: 
“The major design tradeoffs in Janus were power versus 
mempivecwty,. A melor effort wes made to keep the Jane 


subset as small as reasonable. This was cone in order to 
complement yet not inhibit the arbitious nature of Ada. 


Aad. 
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JanuS was designed specifically for the microcomputer 
environment. Therefore, every Ada construct which would 
have required excessive macnine resources was rejected. 
The complicated features of Ada that are viaole onay. “for 
meres computers,  é.¢. parallel processing ,™@ are ot 
included in Janus. (Ref. 9: p.1-1] 
It if not the intent to review all JANUS deficiencies here. 
A corplete list is available in the JANUS/ADA PACKAGE USER 
MANUAL [Sef. 9: App. LJ]. Those items which detracted from 
the ROS UNITHEP implementation will ve discussed. 
1. lack of a Standard I/O (Input/Output) Package 
JANUS implerents this concenvt through tne use of 
Yitrary wodujes. Four of these library modules were used by 
Doe prorrem. The subprografs which are provided by these 
Podules are listed in Apvendix 3. Unfortunately many Ada I/0 
Subrregrams were not implemented, particularly those 


secressing full screen console operation and printer usage. 


Mees Teeiired creaticn of the necessary functions. 
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Segregates are written forms denoting a composite 
Value, essentially being record anc array literals. Without 
meerecaves all composite variables required initialization 
mimeecuneecire in the vdackage body. This detracts fror 
Mocaiiaz7ing such items es constant strings with their value 
ao tume ceclaration. 
5S. Type Limitations 


iiemesiNUS compller maintains internal tebles for 


Gamtaind objects encountered during compilation. A maxifum of 
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ninety (S@) different data types may be specified. As all 
UNITREP data sets and many of their components were 
represented aS Seraraté types, the limit was exceeded. This 
Meeeasitatec Wodification of the program and data structure 
into modules where the total nurber of types, for each 
module, were within limits. 
4. lack of ixception Fandlizng 

This Ada f@ature allows a program tc react to an 
Seed G eWhich causes suspension of ntorfral program operation. 
Baecrout the built-in &xception handling capatility all 


MmeviOard input was character and string buffered and the 


- 


G@oemeuent interpeted itn sevarate sutprogrars. Subtyping could 
morbe usetrully erpicyed since this constraint _error type of 


waeepraon resulted ir program adorts. 


eS 


~~ € 


t 


it 


ack of an Overlay Capability 


In the ricrecorputer environment the utilization of 
overlays for medium and large programs is a necessity. The 
Haekeeon: Overlays peguired physically dividing the program 
memo four imdependent executable files and introduced the 
eee stomecommunication and control components. Since the 
meee taremms structured with a large set of supporting 
subprograirs (24 kilobytes) this information rust be 
Dencocweeas= for each module. Therefore ?2 kilobytes “of 
secondary storage are duplicated code. Additional dis« 
access tire is required to load the larger prograr modules 


in comparison to what would be much smaller overlays. 
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6. Lack 
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In JANUS external files can only be read or written. 
emea restrictions require the entire external file to ode 
loaded into main merory for the rodification cf a single 
Senponent, even: if the file is Static in compesition. For 
large external files tne impact On Malan mrerory and progratr 
Peeters iS prohibitive. This also prevents tne us@ of dynamic 


meles, which resulted in the inability t9 prowide the user 


Ih 


meen oe: on line file updete carability or maintaining 


@emidin tadvularized cata. 

Geameimeberentation of the Type String 

. JANUS uses Gynaric strings anc supports full string 
operations. Although not detrimental for the purposes of 


this program, portability and compatability problems may 


Secur wWitn other séda compilers. 


B. PROGRAM OVERVIaW 
Prior to reviewing the program, an explanation of terms 
moed ia the discussion is necessary: 
——- subprogram: a procedure or function. 


-- nackage: the Adé construct for the logical grouving of 
iieormat ion . 


-- package specification: that part of a package which 
contains the “declarations of iyue Ss, constants, 
variatles and visible subprograms. 


-~ package body: that part of a4 package which contains tne 
information necessary to support the subprograms 
declared in the package specification. 


iF 
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-- module: the executable code (.COM disk file) his 
results when packages eré compiled and hee ue 
rodule name is that of the highest level package. 


is 


7 C9 


The lowest level in the program hierarchy consists of 
the basic program support features which provide console and 
printer communication, global information, program moceule 
Communication and utility subvrograms. This level consists 
Oretcie PACZAGSS consio,printio,urglobal and YWrutil as sheéws 
mietizure 4-1. 

MiemeoNlIrrP data Structure definition is divided “Game 
Two components by FACKAGES unitrepA and Hont reps The 
resrective Subccmpeonents (PACKAGES Searle urlccalé, 
uradmin3 ane urair3) and structure are shown in Figure 4-2. 
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PocrenCP SUNLtUrep provides the main sel€cticn sutpre 


morpeecnoosing and processing the desired vrogram actions am 


reds, dS WEll aS the constructs for directing program flaw 
to the other control packages (UAitrepi unitrewe, 
Pretreps). PACKAGE wunitrepl also interfaces to the LOdsD 


MsOormation subprograms conteined in PACKAGES urlocal axe 
mmlocals. Modules unitrep and unitrecpl operate on data as 
M@etiged ty wnitrepA. File checking and handling subpregrams 
for the ‘A’ structure are contained in FACKAG? filerA. The 
PaomenGtsigitiealA is used to set the contents of the external 
disk workfile (UNIT@@@A) as recuired for initial program 
operation. (Figure 4-3) 

PACKAGE wunitren2 controls access to all AIMINISTEATIV=G 


crocessing subdrrograms (PACKAG? uradmin) as well as all AIR 


rh 
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processing subprograms (PACKAGE urair) ex ed t those 
memoerning the modification of AIR information. FPMCKAGE 
Hoa treps as the interface to the AIR Lor o rari 2 
modification subprograms as contained in PACKAGES wvvrairl, 
Euein<, UrairdS. Modules unitrep2 and unitrepé operates on the 
"BY data structure. File operations are contained in PACKAGE 
Memersc. FACKACE initiealB sets the contents of tre sxternel 
disk workfile (UNIT@@@B) as required for intiai wprograr 


operation. (Figure 4-4) 


C. 3ASIC FROGRAM SUFPORT COMPONENTS 

Four common packages are requirec ty each of the four 
meoerar modules to provide the basic support items. Two of 
mies packages - consio and printio - are designed to ve 
Gemtvorized to the specific hardware configuration wf the 
Semiainal and printer. aA third -— urgloteal —- provides global 
mee orration, user assistance suborcgrars ane Todule 
Sorpmunication information to control program fiow. The 
meer — Urutil - consists of routines for tre checking of 
redundant fields and higher level, general subprograms. 
Mirtraliy a fifth package - urtest ~ was included to gather 
Peers information on the system. Although not inclucec ina 
m@iemeeinal product it will be discussed. 

1. Console Fackage (consioa) 


Mhic vackage satisfies three purposes: terrinal 


miervomigation, keyboar@ cWaracter conversion and screen 


cn 
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oriented (x/y) addressing procedures for data input aad 
eutput. 
ae Lerminal Customization 

In general, all terrinals have a spé€cific 
interpetation of the American Standard Code for Information 
Interchange (ASCII) character coaes in relation to terminal 
mimetioning (e.g. cursor positioning, screen backspace, 
clear screen). Any program function or trrocedure dependent 
upon a specific interpetation of one or more of these codes 
Pores reqvire redification for the specific terminal. This 
Memeea be UNSatisSfactory in light of the nurber of different 
terminals available and the number of different subprograms 
uséd pore SUDPOTt the Ful lsc reen. menu driven user 
mmretreace., For this reason items vdeculiar to terminal 
meoetri1oning are hidden from the program in the consio 
package boa ys For localizaticn purroses those Atel 
character codes which heve accepted meanings (carriage 
return, tell, horizontal tabd}) are declared in the vackage 
eoecification, while non-standard interpetations are 
declared in the package body. WHEN CUStTOMIZine toed 
Bamticuldr terminal only those items in the package body 
rust be modified. The package body is then recompiled (vice 
recompiling the entire program) and the four modules ere 
meameced 82 C€xanmple of the differeaces 15 between two 
terminals is given in Tatle ¢-1. ive Trecedures directly 


Melate to terminal custorization: 
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-- PROCHIURE gotozxy(x,y: IM INTEGER); 
The prograr is coded on the assurption that it will be 
implemented on a terminal allowing at least 23 rows 
(numbered @-22) and 7& columns (numbered 93-78). This 
fgeeton tne standard <4 row by SQ colufn display with a 
Small safety margin. This procedure modifies the linear 
representation used in the program (x - colurn, y - row) 
MoOmeuodte set Of chdractéer codes rearired by the terminal 
mompeclt2 on the cursor. The c@nversion algorithr to the 
Gorm cect, valve must be modified for the specific terminal, 
Pnemmcons10 package body r@corulled and the for control 


ages (mnitrep, unitrepl, uvuitrepe, unitrep3) relinxed 


i @ 
Q 
Q 
i 


PeeOre¢o Cistribution and use. 
See OCrLUEE clear screen; 
sends the clear and home character to the terminal. 
Peeweciememcaiticatioa Of this procedure is 20t neccessary 
Since the cleer scre@n character code is declared at the 
beginning of the consio peckageée body. 
Deer aracter Conversion 
ie Ot OU, Ot mathe Erozhar iS  daressa4ge 10r 
meer oretrancmission. Therefore, oaly taose characters 
mech ore competitle with toth the Optical Character Header 
(OCR) and five-level (3AUD0T) character codes are 
acceptable. Since most keyboards previde the 128 ASCII 
Seiareecters., some means of liriting to these character sets 


is necessary. 





-— FROCEIURE baudot_convert(char: IN OUT CHARACTER); 
This procedure is hidden from the program in the consio 
package body and may be modified to any desired character 
Seaeeeenc action is taken on control characters (ASCII 
Tecimal @-31) with the exception of ASCII 3. Control-C, 
which is interpeted to be a user commanded program abort, 
and ASCII S, tab, whicn is converted tc en “X° tcneracter 
to allow the tab key tc be used in menu selection fune- 
trons. All lower case letters are avtoratically eonverted 
to upper case. The set of all allowable characters is: 
fee ee 6 7 GhS A BOC DURMRUGER I GeceL M NEO 


e 


Pee UV WX Y Z—-? : §$ & # ( ie. | Seed, 

Space 
Any other Character input from the keyboard is 
-automatically converted to ASCII 2 and ignoreg lg 
Daocessing. The operator is notified by en aural tone 
that the devressed key 15 unecceptedle. 

ec. screen Criented Input-Cutout Procedures 

The decision to use a fuil Screen format and 
meny selection reauirec 4 complete range of @creen oriented 
subprograms. The rajority of the subprograms in this class 


can be identified by the “xy” in the subprogram name. 


-- PROCELUHE getxy_immediate(x,y: IN INTEGER; 
char: OUT CHARACTER); 


iorsmarocedure 15 used to character Duffer all data input 


aoemnounriag renu selection. Ine cursor is positioned to 
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the indicated coordinates (PROCEDURE gotoxy) and exactly 
one keyboard input is read and converted to en acceptable 
character, “char” (PROCEIUPE baudot_convert). 
PROCEIURE getxy(x,y: IN INTEGER} 
temp: OUT STRING; 
field_length: IN INTEGER); 

This procedure builds a striag, ‘“terp’, character by 
character (FROCEIURE getxy_immediate), operating on eaca 
character as received. All ASCII @ characters are ignored 
and on screen backspacing and deletion are allowed. The 
Sace of the string is automatically piri t ee bis 

feld_length” characters. Keyboard input is terminated 
when receiving a Carriage return or upon reaching the 
field length. The string is then stripped of any trailing 
tlanks which ray have been entered. The string is then 
returned to the calling sucprogramr for use. 
FUNCTION rark(x,y: INTEGER) RETURN 30CLEAN; 
ieomeemnction is used in menu sél€ction areas where a 
toclean value is required by the program. The function 
accepts a keytoard input (PRCCEDURE getxy_immediate) and 
determines if it meets the requirements used to indicate 
a Wark. TRUE is returned if an “X° or tab key has vdeen 
emmeicsecee TALS? is returned if the carriage return or 
peace ar have been depressed. If ome cf these four xeys 
was not selected the input is ignored and the user 


moe need by an avral tone to reselect. 
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Seo nOGrmUnE putxy(x,y: IN INTEGER; 
temp: IN STRING); 


This procedure puts the contents of the input variable 
‘terp” at the indicated coordinates (FROCEDURE gotozy). 
mee HOCSTURE clear field(z.y,len: IN INTEGER) ; 

This procedure is uséd to erase the entire contents of a 
Gata rield at the indicated coordinates (PROCEDURE 
gotoxy). This applies only to the terminal display, x10% 
the actual date field variatle. 

é€. Printer Fackage (vriatio! 

The meinter package Supports the program 
esbomization to a particular printer and the setting of 
several trinted copy formats. 

a. Printer Customization 

Since .a continuous page priater was used, onky 
Printer Eenatling/disabling and Dage ejection rechanisms were 
required to be constructed. 
—oeemeenk printer on; PROCEDURE printer_off; 
JANUS/ADA communicates through the standard CP/M-82 
filenames for input/ouput devices. The measures described 
in the manuel using the LST: device were followed ([REF. 
eae. 2-2). 
= “<COPPURE new page; 
Aiithough a standard ADA construct, this procedure was not 
available in the JANUS/ADA sutset. It was simulated dy 


cutting the form-feed character (ASCII T[ecimal 12) to the 


SiG 





CP/M IST: device. The page eject constant is hidden in 


cs 


he priatio package body to be easily modifiable. 
b. Qutput Formats 

Three output formats were selécted for 
demonstration purposes: message (msg), which simulates the 
~orvat received during fleet broadcasts; Optical Cnaracter 
Reader (ocr), which is used for message preparation; text 
(text), which is used to prepare printed deta not message 
Oriented. 


meee) formet IS (mse,cocr,text) 
FROCEIURE set _forrat(format type: IN format) 


The various parameters for each format are listed in 
tatle 4-2. Formats are set either by default or, where 
“meracaule, by the opérator through menu selection op- 
ticns. The procedure controls the actual parameters and 
is hidGéen within the printio package body. It is adjust- 
Aeeemuaormany tOrmat Dy variation of the format parameters. 
~~ PROCEDURE put_printer(content: IN STRING); 

Cnee the format is selected all printer directed output 
fomegaoced throgh this procedure. In addition to writing 
Tomer reater the proper format is Maintained by acjus- 
ting header lines, line spacing, margins and page ejects. 
DiemiertewcOUnt 15 adjusted at G€ach call to new page. 


3. Global Package (urglotesl) 


_—_ ap eo ap ee a = —_—ea =~ 


oe 


The global package provides the declarations of 


glotal types, constants and variables, the program status 
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Structure for frograr mocule communication, generat use 
sulprograms and user assistance sutrrogramrs. 
a. Global Teclarations 

ume Pderace Speer ication cetalils the types, 
constants anc variables which may be accessed by all higher 
tevels of the trogram. Comman use temrorary variable 
meentifiers hor the Specific types INTEGER, SG), 
Meer orenh, SOOLEAN and FIL are listed here to maintain 
mee ormity of reference throughout the program. Constant 
emaracters eee USCO NS Gee as emees Gcitiement S aad qu cian 7 
Somoarisions - letters are recognized by the lower case 
representation of the sharacter (e.g. “a for “A’) while 
Seder Characters are represented by plain english (@.é. 


, , a 


ae |) Constant strings {of length one) are 


7 


recognized by the “_ merk’ suffix (e.g. “a_mark’ for “A ) or 


baa english (e.g. ‘dash’ for - ). String coastaats are 
initialized in the packege body es JANUS /ADA does not allow 
mieeuse Of aggregates in the pacxage specification. 

The eight designated rrogram actions are carried 
Peccmsr a tyoe ( action : draft, néwWw, print, etc.) and aa 
array of tooleans (“action_is’) since JANUS/ADA does not 
Meemde “tor the writing to storage of enumeration types 
(other than boclean). The ten program areas, consisting of 
Mee bent UNITREF situations, the LOCAL Information area and 
mem ere CCMMANDZR report sé€ction ere similarly represented 


7 


(“erea’: local, air, admin, etc.; area_is”). 





tb. Program Module Communication 

Since the Program is structuree in multipie 
modules, scme information passing is necessary to freintain 
program comtrol without Requser 2 reduncant User 
mteraction. This information is contained withia tne 
variable “program” whose structure is the LyDE 
“program status’. An explanation of e@ach component of 
peogram follows. 


Seoumats IYPE unit type [S 
(ship, submarine,air unit,shore, other, 


This iter 7S used to distinguish the Pe or tea 
requirements of certain date sets (e.g. only shins and 
Submarines are RECUIRET to repert their positions (FOSiT 
set), only ships ani submarines are allowed to report the 
physician status (METIC set) ). This allows the program 
moeernalky tO required or disregard these fields. “Unit 
MmSooeSet eid PACKACK urlocal, PRCCEDURPE process local 
iene aqvent. 
Beigiciadl Entry: 2COLEAN 
‘micmeicvem enables the Sign Cn display screen. It is 
reset in PACKAGE unitrep during the initial ex€cution of 
the main trogram and set when the user elects t9 aquit 
the system in PACKAGE unitrep, FROCHDURE prccess action. 
BeetGint trailer: SOOLERAN 
TES iter is used ody PACKAGE urlocal, PROCEDURE 


foemnce. tO determine if ressage trailing items (RMKS 


E2 





and ICLAS data sets) are to te printed. This sequences 
Bie roper orinting order. It is set in PACKAGZ umitrep 
after sign on and reset in PACKAGE unitrep when action 
-8- (quit) is selected. 

message transmitted: 3OQLEAN 

This iter is used dy PACKAGE Urea. FUNG ERen 
Pmeteewitn aGelete to determine when a celeted data set is 
required to be printed (Figure 4-5). It is set in PACKAGE 
Poeeorep, ©2O@LURE “process ection when a message is 
logged as transmitted (action -&-). 

Current action: action state 

mcm tel Communicates the prover action to each profre® 
module. It is set in PACKAGE unitrep, Proceaure 
emeose action. 

current _arée: aréa state 

This item is used by the various control vackages to 
Peascteeprosram flow only to the user selected areas. It 
iecmescuein PACKAGE unitrep, PRCCEDURE choose aréas. 

ere due.ormat: forffat_ state 

This item is set either by default of through usér 
Sebecrmowe in TACKAGE unitrep, PROCEPURE choose action, 
aiommeaiytains the proper forfat during 4a print cycle. 
Preieuden tine: INTEGER 

iiewiwerm is set ty the variable line count in FACKAC: 


fPeemeomestt Kainatains the value of the line currently 
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teing t«trinted when switching tétween modules during any 

action which reauires printed output. 
-~- workfile: STRING (14) 

eis item heids the 2ame of the current data structure o2 

which the program is operating and is set in PACKAGE 

Epuetrep, PHCOWBURE process action. 
The progrer status information is stored at the termination 
of any module and is loaded at the beginning of execution of 
any module (see =PRCGRAM CONTROL CCMPONENTS). 

c. General Use Subprograms 
Plager e@emomemin this seroupime are us ede throughout 

moeeorogral to support other, more complicated, constructs. 
—— PROCELTUnSR border; provides the display screen outline 


-- PROCEIURE process_comrent(data_set: IN STRING} 
comment: IN CUT comment_set); 


es procecure provides screen vrocessineg of 
amplification (AMEN) and remarks (RMKS) data sets. The 
content of “comrent_set”’ is described under PROGRAM DATA 
COMPCNENTS (fureglbdl). Comments are processed as external 
files in order to reduce data storage requirements. These 
free text files are purged once a ressage has been logged 
as transmitted. If a file has been created previously, 
the contents are loaded and displayed (Figure A-5). 
Otherwise a new file for that data set is created and the 
user enters the free text content. Yhen the user has 


Geomoleted the initial entry of data, noted by reaching 


ES 





the maxirur cilcwed commént lines (18) or inputing a 
carriage return on a blank iine, the option is presented 
to line edit, Grase or contiane with the prograr. Cnce 
the user is satisfied with the free text the program 
momes thee scontent in afile on the A: disk with a 
filenare of ‘data set’ and a filetype of “.AMP” (e.g. 
“POSIT.AMP’). Remarks are processed as 12 pages oF 
comments to allow 17@ total lines. In situations where 
Multiple data sets are possivie the variable ‘data set’ 
homeodi,1e@c at the point cf the procedure call to 
indicate the instance of the “data set” with integer 
Sumer mes (e.g. CREWSTAT arclification, ‘“data_set° := 
“CRWSTA12 where °1° indicates the first aircraft type 


Se? 


and Z Peicaves «di Tnewececomdee location; ATRAUTE 
amplification, ‘data set” := AIPATHL where the “1° 
indicates the first aircraft type). 

FROCEIURE print_comment(data_set: IN STRING); 

This Procedure is used %t5 print the content of 
amonifi@ation sets Odea. The external file, 
‘data_set’.AMP, is located and AMPN/ is appended at 
Sicmmerertaningvot the first line. All lines are printed 
and the end of data delimiter , //., appended to the 
last line. Although remarks are processed as multiple 
page amplification sets, a@ special procedure must be used 


Moinratigg as the placement of the delimeter is 


variable (see PACKAGE urlocal, PROCEDURE print msg). 





-- FUNCTICN required print(changed_ item: ECCLZAN) 
RETURN BOCLEAN 


Paséd on data set printing requirerents (Figure 4-5), 
mmo tunction determines if a aou-deletable data set is 
to De Ttrinted. 
d. User Assistance Suodprcgrars 
PReeeuSser aSsistance subgrograms notify the system 
operator Om Paipuce Elmers, provice additionel Eee 
Mmeeormation or provide draft document information. 
~—- FROCEIUFPE error(number: IN INTEGER); 
In Certain situations of illegal data ertry or where 
Mommeredulon to the user of certain actions required to 
te follcwed are necessary, error messages are used. The 
Error numrber is set at the procedure cali and the 
external EREMSG file is accessed. The required ‘nuinber’ 
of lines in the file are s€archec and the aporepriate 
emeone message is dislayed at the bottor of th@ %current 
screen display with an aural tone. The procedure waits 
MoEGcser input before clearing the E€rrorimessaze. trror 
messages are contained in Table 4-3. 
-- PROCEIURE help(data_set: IN STRING); 
Maso nocecure allows the user to obtain upto seventeen 
lines of information tertaining to the particular item at 
meecmcirrent Cursor position. ~When the user enters a 
aiecmlone mark (°? ) at a valid location the “external 


pier. LAT “ile is accessec and a search made for 
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‘data set’. Cnce found the contents of the file are 
displayed until the delimiter (a single period on a line) 
is reached. The procedure terminates when the user makes 
ceeeeycOdard @€atry and control is returned to the callixg 
Subprogram at a point allowing use of the information 
viewed. 

FROCETURE view table(filename: IN STRING); 

mis, procedure is used in conjumction with the help 
Subprogram when the data field item under enquiry is 
Boteeemed. in atable supplement to the instructicn for 
which the program is designed (Ref. 18: Tables B-1 thru 
E-j4}. The procedure notifies the user that that table 
eatmcs are available, by message and an aural tone, 
following a HEIP request. The user may elect to view or 


not view the table. If the decision is to view, the table 


(7% 
a 
ct 
ae | 
j-4- 
\ 


-§ are displayed seventeen per screen. The usér can 
exit viewing at any point or will automatically exit at 
meemonvanor the tanle. Program control returas at a point 
alitwlise use of the information. 

PROCELURE draft _aid(data_set: IN STRING); 

Byeecmerrocecune priovides the user hard copy information to 
@scmiser in the drafting of a report. The information is 
stored 127) an external file, Peak and is 
automatically accessed during draft document prepdration. 
The IPAFT.TXT file is searched for ‘data_set’ and all 


contents until the delimiter (a single period on a line) 


Ge 





are printed. <A sampie draft document prepared using the 
content of THAFT.TAT is contained in Appendix A. 
a. Utility Package (urutjlj 


The utility ovackage provides several subprograms 


Which are also of general use but which were separated fror 


PACKAGE urglobal for their similarities. 


FROCELIURE verify _numrber(nurber of digits: IN INTEGER; 

tempmiinN OUT STRING; 

success: CUT EFOOLEAN; 

nurper: CUT INTEGER); 
The necessity of String buffering the input {es JANUS/ATA 
has 20 exception handling capability) required a 
capability to determine if certain string inputs were 
PomrerteG ¢n Nature and if sc Ho provide the integer value. 
Bors |-procedure checks all characters of the string 
‘temp’, insures they are numeric and then converts the 
werine to an integver valve which 15 returned in the 
variatle “number”. If “temp” does not represent a number 
Or if the number is not positive and in range (@ to 
(1@*¥*¥nurber of digits)~1) then “success” is set FALSE. 
teaaime Spaceism within the string ar€ converted to tne 


zero (°2°) character. 


FUNCTICN getxy digits(x.y,number of digits: INTEGER) 
RETURN STRING; 


This function is used where the integer value of the 
nurbder is not imrediately required and where Ky 


meameesiac 15 prezered. The cursor is bdoSsitioned at x,y 





and a maximiur of ‘numrver_of digits’ characters are 
accepted. Input is terminated on a carriage return of 
when reaching “number_of digits’. Any trailing blanks are 
stripped and the etring is sent to PROCEDURE 
foauiyenvurboer for processing. If the impet is an invalid 
meer the user. is notified with an error message and the 
Sequence iS repeated within the function. The function 
terminates when a set of numeric characters which treet 
the various tests is processed. That set of numeric 
Characters is then returned as the furtction value. 


PROCELURE verify dtg(dtg: IN CUT STRING; 
success: CUT ECCIEAN); 


Error checks ‘dtg’ for all Legal date-tire groups. If an 


invalid date-timre group is received the user is notified 


i" 


by an error message anc “success” is set to FALSE. The 
date-tire group template, ‘ddhhrmZMMMyy ais returned 
after the user clears the error message. 


PROCELURE verify_lat_long(lat_long: IN OUT STRING; 
success: CUT ECCLEAN); 


meyseegrocecure error checks latitude/longitude position 
reports. If the entered “lat_long®’ is inccrrect the user 
is notified by ar error message and “success” is set to 
FALSE. The positicn template, ‘oddmmlC-dddmr[—c is 
returned when the error message has been cleared. 


TUNCTICN checksum(temp: STRING) RETURN INTEGER; 


4 


imicmerumct1 On calculetes the checksum for a string o 


miieric digits and returns that integer value. 


ao 





=— EUNCTICN zero pad(numbder of digits: INTEGER; 
temp: STRING) RETURN STRING; 


This function adds character zeroes (°@°) to the 
teginning of the string “temp” if required to fill the 
string out to “number of digits’. It is used to maintain 
pumerrtcai String Variables of consistent fiel@ widthe. 

S. Test Package furtest) 

BUmoe package was initially envisioned es a reens oF 
automatically collecting test data on program operation. 
This includes such items as user identification, sign on and 
Sign off times, program recognized error tabulations, the 
nmurcter of help accesses required and a method of gathering 
meer comfrents. Use of this package was discontinued because 
the lack of JANUS/ADA random access réed “write file 
procedures required separate external test data files to be 
PPmerdtea @ach time 4a program module was entered. This 
m@eeaucec a number of files which frequently exceeded 
Girectory ¢pace during program operation causing program. 
mer p. Lilimination of this package increasec the space 
available in main memory and allowed the use of a larger 
meee buffer size which increased file handling cepabilities. 
References to the test procedures remain in the prograr 
listing and are recognized by the characters  --# which 
effectively comment out all calls to tne applicable 


Subprogrems. 


fell 








[T. PROGRAM DATA COMPONENTS 

The program uses nested Ada record types to define the 
data structure. At the lowest level the data is structured 
according to the data set definitions (Ref. 160: pp. 11-5 
thru 11-47]. The type identifier consists of the data set 
naire and a siete Siuirateien (uenecrs “operation set’, 
‘medic set’). -Each -.component of this record represents a 
data field of the data set. Tata sets which are conditional 
(i.e. reperted only when necessary) are identified oy a 
toclean fleg (“change”). Tata sets which ray be deleted are 
identified by an additional boolean flag (’delete’). I2 a 
data sét can be amplified the record contains the component 
“arpn’ which is defined in PACKAGE urglbl. 

Thes€é data sets are then grouped in another record 
Beeording to the UNITREP situation to which they apply (e.g. 
°“local_set’, “air set’) oy the appropriate package 
(urlocalA, uradmin3, urair3). These comrosite area sets are 
finally grouped in the “unitrep set” record as declared in 
PACKAGES unitrepA and unitrep3. The identifier “u’ is used 
in both packages to denote the unitréep data variable. fhis 
fiows the multinle data structures to be collapsed to a 
Single data structure for Ada sutsets without the JANUS/ADA 
foe Limitation. 

ieee 26xt Data (urgibt) 

iwemeNES instructions allow the majority of NES data 


Bets to te amplified by using the free text set “AMPN’. Aa 


Ce 





Maer racdation set consists of upto 10 lines of text, 69 
@mdeacters per line. In order to lirit the printed line 
length in a message to €9, the program constrains the free 
text lime length to €2 characters (data set identifiers and 
Gelimiters account for the other 7 characters). PACKAGE 
Meee Ol Consists of the ceclarations necessary to support the 
“AMPN’ cata set. AS the actual text is stored in an external 
file (see PACKAGE urglobal, orocedure process comment) the 
tyvte “comment set’, consists of only a flag (“change”) and a 
count of the “nurber_of_lines”’ in the set. This count is 
used when processing remarks sets (which are interpeted as 
upto 19 vages of comments. 


meee cOcd! Information [ 


ow eee ewe es ee ie = Oe <= —_— ee oa ee awe oe 


This package defines those data items néceéssary fer 
the coastruction of any NRS/UNITREP ressage. Tata sets 


included in “local_set’ are generally noted as mandatory dy 


meen IaStruction. im” addition to the data sets, type 
“message set’ contains information relevant to the 
perticular message (@€.¢. date- wire ~ group, precedence, 


clessification, declassification). The type “status_set’ 
merttains the items used in the message identifier Tine 
meocil or UNITID). 

S. Administrative Information Tata (uradminz) 


PACKAGE uradminE contains the declarations for the 


Seopes used in preparation of administrative information 
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[Ref. 14: pp.4-2,4-S]. These sets are relatively simple as 
no deletions or complex relationships are involved. 


4. Air Information Data (urair3B) 


murcraft aud Crews Status information [{Ref. 10: pp. 
E€-€,€-7,€-£] requires a much more complicated structure. The 
user may subdrit a variable nurter of these data sets 
mepending On tne tyre aircraft and also the location of the 
aircraft. Fecause of the static nature of the date structure 
several désign restrictions were required. In examining the 
Memeecadta sets it is clear that the aircraft type is a 
recuirement of all. Therefore a set number of aircraft types 
is required. An arbitrary value of four (4) was selected. 
Three data sets (AIRSTAT, CREWSTAT, RECCN) require location 
information. Again arbitrarily avalue of four (4) was 
Selected. The tocation informaticn is a subcorponent of the 
aircraft tyve, therefore up to sixteen (1€) total locations 
are allowec. The structure and size of the air set record is 
fore clearly displayed in Table 4-¢. The size of the data 
eeructure becare relevant bé€cause of the the storage 
megwired in train remory during prograr execution. A rough 
formula for determining the size of the air data structure 
aS : 


igs = 2.2 x (5S + “max_ac_types’ x 
(et  (TaculOcations x14 


cO 


es 


‘Max_ac types” and “max_locations’ are declared as constants 


in PACKAG? urairE. 
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S. Composite Data (unitrepA, unitrep3) 
PACKAG? unitrepa COMSstS = of vomuly “tire LOCAL 
Structure define in FACKAGE urlocalA. PACKAGE vunitrenEt 
Somsists of both the ADMINISTRATIVE and AIR structures fror 


PACKAGES uradminB and urairB respectively. 


ze. PROGRAM CONTROL COMPCNENTS 

Program flow is directed according to the actions and 
areas which are selected by the operator. Without an overlay 
Capability, as the program size expanded it was necessary to 
ehysically serarate executable portions of the fprograr to 
rerain within main memory space limitations (64K). The 
program control components are responsible for operator 
selection of action, selection of area(s) when required, 
direction of program flow to the necessary modules and the 
data file ranirpulations required for support of the selécted 
action/area(s). 

is) Frimary Control (unitrep) 

FACKAGE unitrep provides the program initial (sign 
on) operations, the selection of program actions. the 
mecesicary Contructs for supporting the selected action and 
the selection of area(s) when required. 

dee roeranm initiel Operations 

Suoepreerams itaibring inve this™ category dre only 
Executed at the beginning of the terminal session. The flag 


Suemtrareentry controls their exe€cution. 


aa 





PROCELURE check required files; 
This procedure checks to insure that all main (disk drive 
A:) files necessary to sustain program operations are 
present. If a file is missing the program notifies the 
operator as to the filename of the required file and 
Pemrraates execution. 
FROCEDURE sign on; 
7bis procedure displays the ‘RCS UNITREP SUESYSTIM version 
number and the serial and transmittal status of the 
mepore eurrently in the workfile (Figure A-1). 

b. Action Evaluation Subdtrosrams 


AS discussed in Chapter III, eight ovrograr 


memrons are permitted. Figures A-z and A-35 detail the sereen 


mopkays fOr action seléction and the reauired additional 


Prompts respectively. 


‘= == 


PROG@RRURE choose action(action is: CUT action state); 
This procedure is ex€cuted whenever control is passed to 
PACKAG® unitrep. All actions are rutually Exclusive. The 
appropriate component of “action_is” is set to TRUE. 


FROCenURE process action(action is: IN OUT action state; 
success: OUT BOOLEAN); 


jivemprocecure insures the legality and proper sequexrcii¢g 
of heagwesced detions dnd = performs =the preliima Na Gy 


operaticns such as format setting and data filenare 


ty 


Semecrion required to support that action. [t consists o 


ee plevrrer SIP... fLSIFSEISS-EAL IF const®uct hich 
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SPydiuates the selected action. The ouput, of” tHi-s 
susprogram is used to drive a similar construct ir the 
cpérative modules for procesSing the action on the area 
Seca tae COnstraints for each acticn are: 


mcm Od s (draft): The drafting document may be 
requesteéc at any time during the report generation 
eee. Uraft information is norrally based on the-rost 
Meaeeicee Port transmlttec. sowever, if a réport is ia 
coe €6CCS|6USYVSTEM Tne operator May reé@vest draft 
jreomration based on the pending rerort. This opticn is 
used to yrrovide the relieaser the detailed ixnformration 
Reqduire@ to €valuate the report with mriniral refereace 
BOwtUSe Anctruction. LTependine on operator selection the 
Seppeetria+,e data file is determinec. 


-- action is(neww): This action may be selected only if 
the worstile Bas been transmitted. If it hes not been 
transmitted the operator is notified that only the 
modification, erase or log actions are allowed. 


=~ action is(modify): Modification of data is caly 
allowed for reports which rave not yet veen logred as 
transmitted. If the report in the workfile hes been 
transmitted the user is notified to seléct the sew 
ae Vas0 Nl. 


se ection is{print): The print action may be reacuested 
ape sanye time during the report generation cycle. The 
operator ray request a print of either the pending or a 
past message. Past messages may de recallec by either 
serial ocr date-time groun. LDate-tire groups aré cross 
referenced to the appropriate serial. Le Sa) pact 
ressage, the external disk data files are checked to 
insure they ere availatle. If they are not the operator 
Poemhotified. Prior to printing a valid message the uset 
Mee ven an oplicn to select Khe print formrevt. 


-- action is(log): Legging 2 ressage as transmitted is 
only allowed when the report in the workfile nas not 
Gitmeaer been logged. The user is 2evtified if there is 
Gee Gcemo, to do this. *shen.a valid action tne user is 
Eeomesca for the transmittal dete-tire group. is 
aie Gere eroup is. entered with the report sesiel 
mumber in an external cross reference file (CRCSSRHEF). 
The new data file name, 3:UNITxxx is set basé€d on the 
mepomee seria) for use ia filing the report date on ™’nhe 
@1se. 





-- action is{erase): The erase action may only be 
selected when tne report in the workfile has not ceeén 
transmitted. The program erases the workfile by copying 
the data file of the last transmitted report. Therefore 
Ite External date xrylies aré checked to insure that 
those required are present. If they are not, the 
prograr terminates, notifying the cperator whicn data 
Pele LS redwired on the Bs Misk drive. 


mamacwmon 1S( verify): mciedtackm Merl iLcation May abe 
requested at any time. The overator is prompted for the 
verification serial and the program searchés the 
Swmcruciwemcaata files for taat B:UNITxxx required. fhe 
operator is notified if tne data Pile is net present. 


——- action is(quit): This action terminates the program 
rorrally. 


D 
tA 


Ge AT Election 


¢ 


( 


MooeararteoG MO<.1.¥ A2CtiOnS the program requires 
the selection of the appropriate UNITREP situation to direct 
the flow to the appropriate rodules(s) (Figure A-4). Areas 
are automatically limited to those implerented (LCCAL, 
MOM INISTRATIVE, AIR) with a reselection capability prevideca. 
PROCEIURE choose _area({area_is: IN OUT area_state) provides 
the required constructs. 

2. Module Control { unitrea(x) } 

The main body of PACKAGE wnitrep and FACKAGES 
memrren., wnitrep2, unitrep& provide the vrograr control 
between these four modules. Frogramr flow is based on the 
mebeationships between the sel@€cted action, the selected 
area(s) and the current execution point of the program. All 


information is conteined in a program data file (STATUS) 


whose Structure was discussed in relation to PACKAGE 





urglobal. The basic operations, otner then CHOU oie 


Supported by each package are: 


Eat 


S 


unitrep: prevides action and area selection and data 
fmenesaerfinition. 

unitrepl: provides access to all actions on the LOCAL 
area data. 

Mat trep2: provides aceesc to all acztiogs on 
AIMINISTRATIVE area data and access to ail actions on 
AIP data with the exception of modify. 

tmcmmro.s provides eccess to the rodification of AIR 
aréa data. 


mueweeharts of Vieures 4-€ thru 4-12 detail ctontrol o7f 


program direéction. 


3. File Handling (filera/3) 


—_—— a oe ee ee o— ar cme ee ee cee 


The filer packages oprovide for checks of valid 


mes, controlled program termination, worxfile loading and 


Storage and prcegrar status file loacing and storage. The 


major 
files 


files 


fmeerence in the files is that fileérA manindtlates 
for the “A’ data structure while filer? manipulates 


for the “BRB” data Structure. 


FUNCTION valid file(filename: STRING) RETURN BCOLEAN; 


This function is used to check external disk files for 


existence to avoic abnormal program termination if an 


D 


external file is not eveailable. if a portion of the 


Sumename is UNIT , an “S° or “3 


Fd 4 7 


Sit fie wl | lee 


mepended (to distinguish between A and E data files;. 


ei 
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-- TYPE reason code IS (normal,file error) 
-- FPROCELURE terminate(reason: IN reason code; 
filename: IN STPING); 

The termrinete precedure is used for two réasons: a file 
Srror or a normal peoerenrenalt. File G€rror terminations 
are used only when external files ecré€ mandatory to 
BOodpiaue  Drogram operation and are sot available. The 
feecedure provideS a promot which identifies tne required 
were cOmsttomeyere loaded or copied to the prover disk. 
Normal terminaticn occurs only when the quit action is 
selected. 


ee FROCEIURE load file(filename: IN STRING); 
SemrrOGElURE stere file(filenarme: IN STRING}; 


These procedures load/store the external UNITREP data 
structure (UNITxxxA/3) from/to s€condery storage (disk 
drives) to/from main memory. 


eee reOCEITUSE loed status; 
eemresOCEDTURE €tore status; 


aiese procedures leoad/store the current orograr state 
from/to the STATUS disk file. Approvrieate statements are 
Executed to initialize all required variables for proper 


program operation. 


¥. PROGRAM OPERATIVE COMPCNENTS 

The orerative components of the program are organized 
Becorcintg t6 the basic UNITREP situations as defined in 
Boapter lil. miey sare responsitie far eExcecuting the 


operator selected ecticn for the particular area data. To 





Beantein uniformity, common constructs were applied in the 
processing of these actions. However, each area al¢eo has 
unique requirements. ‘These specific points of interest will 
be discussed. 
1, Common Fiements 

There are Dasic concepts Ors which | the 
implerentation is sitrrilar, Pineweot identical .@fcr “all 
Packages. The general interface to au aréa package is 
PROCEIUPE process (areé name). Within this subprograr only 
/mmece Stvayerents Tecuired tc snvorort the overator selected 
action emcun cwee)t ad. An I¥-KELSIF...ELSIF-FLSE-EAT IF 
mmerriuct, identical in structure to that of the trograr 
@encrol coOPmoonents, Dio SeO meer  SuinMmary Or the wsthese 
operations follows. 


pect 102 1is{newW): Resets all flags used to indicate a data 


tA 


Coot mmrela nas been mocified, celetes from the data 
Semmectipes ail items tagged for celetion and resets the 
eormenu, Cf any date items which are dependent on the 
report cecurence (€.g. message serial, precedence, date- 
ume grcup). 

—~ action is(log): Deletes any free text (.AMP) disk files 
Beeaveaq GuUriag the generation of the report. 

Pec oneiSi print), action is(dreft), action is(verify): 
For each data set in the dr comomolecur)< rade rol owing 

Mae cecision tree of Figure 4-S, to determine if the data 


Zemmecomuo ce printed. The decision tree is implemented by 


S@ 





Meee vr ono: Seger? unelobat., <UNCTICK required orirt 
Ree op Se tS Wole = can Act Ce gmeteted; PACKAGES urdair. 


Meeort ONS print with delete ard print we delete are used For 
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Sets wrich may te deleted 
Mmemeerec ormcet 15 préevidec. If amplificeticn comrerts for the 
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meee Ome icy oS provided (FACAAGS® Yrzlodal, PROCEDURE 
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(@rea/sucearea) mask; 
This orccedure generates the varticular area/suberea 


emeamecenmemmay.iis Cisplay ccnsists of ali cata sets oF 





information items for the areéa/subarea. Common elements 
for the screen display are: 

Pata soet Aeeess Point [ “( )” J}: Fach adata set or 
information item has an access point to which the cursor 
positions automatically. Data set medification nroceeds 
Dec awence ITrOM the top Of the aisplay to the bottom. 
The operator enters one of a defined set of access codes 
(keyboard characters). 

Tata Set Nare: This is the plain language expansion for 
the data set identifier fe.g. “Pnysician Status” for the 
METIC data set). 

Povdeeoet Ficlas: Fach field of the date set is atnotated 
with its plain language reaning. The field mey consist of 
a series of dashes (°---...---’) of the assigned maximum 
field length, a template (e.g. ‘ddhhmmrZ’MMyy for date- 
Mme weroups) or ,for limited selections, e series of 
alternate selection points L°{ )° or “-‘] lateled with 
the corresponding data fielded values. seemed) be Reco 
Prompts: An abbreviated table of the valid access codes 
allowed for the display. 

PROCELURE fill (area/subaréa){_mask] ; 

This procedure fills in the corresponding area/subarea 
display. All data fields are annotated with the current 
Semrette Of the date structure for that data coun 
Alternate selection points are marked as “(X¥)°. Items 


ae 


changed for the vending report are marked witn a “*° next 


oe 





to the access point. Items to be reported as celeted are 
marked with a “D° next to the access point. If a freé 
text set (AMPN) has been created for the data set an “A 
is marked next to the “*° (“’AMEN’ sets apply only to data 
sets which have been changed). 
Cnce the fill subprogramr has been executed the syster is 
Meday tO process the operator rodifications to tne current 
Mave Structure. The cursor autoratically positions to the 
access point of the first data Set of the display. Each data 
set is processec through a LOOP and enclosed CASE construct. 
The loop is labeled “’rodify_ (data set identifier):”. The 
Booeram waits for the cperator to enter the access coce and 
then executes the staterents required: 
memmcpace Or carriage return: access to this data set is not 
desired. Position the cursor to the next data set. 
meme Or tab: This code allows further access to the data 
P2PeElds or information items within the deta set. [If the 
access foint is for a data set the cursor is positioned 
to modify the ré€quired data fields. Data fielc entries 
ere checked to insure they properly correspond to the 
data field items (e.g. numerics only, date-time groups, 
free text, valid tabularized codes). [rorover cpap 
generates an error message. Errors are required t9 be 
corrected before proceeding with the modification. If the 


moeeicce Coun?! is “sr an information item with other 
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Subdivisions, further access is granted to select the 
components of the item which are to be modified. 

‘C“s This code allows access to a data field for change 
purposes. It is used for data sets which are components 
of an information item accessed by an “X° which ray also 
be deleted. A check is first made to iasure the set has 
Mowe Deen Marked for deletion. If data change is allcwec, 
menelrar  cCoecrations to insuré ccrrectness cf data input 
are vérformed. 

“D°: This code marks a set to be reported as deleted. A 
Sreck ers) first fade to insure the set has not teen 
changed as deletions apply only to previcusly transmitted 
mata sets. 

"R°: This code allows the operator to reset a deletion 
mito taeset Nas pee 1 wrarzed for deletion incorréctly. 
“A’s This code allows the operator to create a free text 
(AMPN) set to provide amplifying comments to the deta 
set. As amplification applies only to a data set wkicn 
has been changed a check is made to insure this. 

es This code will perrit accessing cf EFLP information, 
iemteexests. for the data set through PACKAGE ureglotel, 
pveeereunme hely. If a corresponding look-up tatie is 
availatle for a data field iter that option is also 
Provided through PACKAGE urglotal, PRCCEDURE view _table 
Miers | Other ope€ratcr inputs are rejectec with 


maerror message to reseleéct. 
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mee Snciosed loop structure for the case statement allows 
for multiple oferator actions on the sare data set without 
mae necessity af repositioning the cursor ranually (e.z. a 
FELF access “?°, followed by a change access °X” or °C’ and 
Meerwticaticn of information, followed ty an ‘amplification 
access “£°}. The cursor is positioned to the next data set 
access point only when the user has indicated that access t9 
the current data set is no longer désired (by Space or 
Garriase return). 

When all data sets for the display have been 
Sequentially processed the operator is given the option to 
mMeseiect the current display (€ 2. if an errecr has been 
made) or tG continue on to the next disvlay. 

ieesaimemintormation is groupved in three displays: 
Infrequeitly Changed Items (Figure A-€}, Message Information 
(Figure A-~7) and Miscellaneous Items (Figure A-S). Within 
the Miscellaneous Information the Cperation (OPER) and 
Exercise (FXER) sets are mutually exclusive. This exclusioa 
is Ereeonceommoy an .1.i-ELSIF-ELSE-END IF COSt LUC tat 
menomatically position the cursor to only valid access 
points depending on the current data. Position (POSIT) is an 
exaiple of a set which is vartially dependent on unit tyne, 
meanired ty ships and subrarines tut only when changed fer 


Other units. The IN operation on the enumeration type 
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‘unit_type’ is used to control automatic selection. An 
additional check is made to determine if the unit is 
“EXEMPT” from reporting position. The Declassificaticn 
(DCLAS) set is dependent on message classification. Again 
the access point is controlled cy an IF IN construct. 


4. Administrative Information (uradrin) 

The AIMINISTATIVE Information consists o£ a single 
display (Figure A-18). The Administrative sets are not 
mmect to deletion. Within the display only the Physician 
Status (METIC) set is dependent (on unit_type). Access to 
Belection is controlled by by an JTF-ELSE-ENT IF construct. 
The unit activity code (ACTIV) is cress checked [Ref. 13: 


Table B-€]. 


ee Air Jatormaticn 
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S orposed to the JLOCcAL and ADMINISTRATIVE 
Situations, the AIRCRAFT and CHEWS STATUS data sets ray be 
Submitted a number of different times depending on the 
aircraft type and location. Additionally, they may be 
deleted. The variable number of sets was discussed earlier 
Boe this chapter in relation to the data structure. All 
actions other than modify are processed in PACKAGF urair. 
ime modification of air information 1s accomplished by the 
other three packages. Three displays are used: 
-— Authorizations (Figure &A-11) details the aircraft type, 
aircraft anc crews authorized and the number of different 


mocattons at which the aircraft are deployed. 
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-- Location (Figure A-12) lists the locations at which the 
type aircraft are deployed. 

—- Status (Figure A-13) lists the aircraft. crews and 
reconnaissance capabilities of the perticular type 
peevemart at the selected location. 

meeess tO a particular tyre cf aircreft listed on the 

Authorization page is granted ty an “X°. A change tc the 

aircraft type is permitted by the °C” access code ‘used for 

Error correction only). The aircraft tyve is cross checked 

Weer. 10: Table B-2]. Modifications for that type aircraft 

are allowed to the Aircraft and Crews Authorizations by a 

Mee)6=|CUdlU 6 hm RC and «CA. OC~Display of the Locattans is granted 

ty an “X”°. Cn the Location page a pseudonyr, FOMEPLATE, is 

used to denote the location as reported in the Position 
meee) ) set. Within the Status rage all status information 
more one location ray be deletec at the location access point 
cr items may be deleted, changed cr emplified individually. 

Component fields of both the aircraft status (AIRSTAT) and 

crews status (CREWSTAT) are sum/total checked (Possessed := 

FMC+PMC+NMC, Formed >= Ready}. Reconnaissance Capabilities 

are cross checked [Rez. 108: Taple 3-3]. As the entire recon- 

naissance capability (RECCN) set must be reported whenever 

Srameed, individual data fteld modifification (addition or 

reroval) is permitted. 

Peeem@estee or flexibility is built into the systenr by 


eee a display forrat which is based on the fWaxirur 
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aircraft types/locations declared in the data structure 
definition. This will allow a maximum of sever aircraft 
mrpes and seven different locations for each tyne without 
the necessity of changing the screen disvlays. It should be 
noted that current merory size (€4K) limits these values to 
a maximum of four and four respéctively. EFowever a different 
combination of types/locations would be permissible if the 
present limitation (epproximately 3K) for air date was not 
exceeded (e.g. <2 tyves/7 locations, 6 types/Z locations, 


etc.). 


fe MISCELLANECUS 

PACKAGES initialA and intial3 are used to set the 
workfile (UNIT@@GA, UNIT@OOE), the ovrograr status file 
(STATUS) and the serial/date-time grouc cross reference file 


(CRCSSREF) for initial program operation. They would net be 


% 


Meaquiréc at the unit level as these files would » 

distributed on the program master disk. The status file is 

mea fOr norwal cyster opérations. The workfile is set as: 
Message Precedence - ieee Gln Lay 


Message Classification - Confidential 


OMEMaEr serial - 6@1 

ACTIV - OP (General Operations) 
METIC - ONBCARD 

REPCRG - CNO 

VERIF? - VALIT 


8 





All numeric items are set to Zero, all character fields are 
blank. On receivot the operator corrects these values as 


required. 





Ven wooNoGue LONS 


foamed testing of the &CS UNITREP SUBSYSTEM was 
conducted at the Naval Fostgracuate SO HOC a. Test 
participants were of the mid-level eee grades (0-2/C0-4) 
morpmally responsible for the drafting of the UNITREP. The 
Mummecomes sted Of Simple data entry from the drafting forr 
and real-time report generation curing which the test 
Mertrcipants used the built-in heln facilities without 
referencing the draft dccument. Seven simulated reports were 
Penerated ty @ach participant during two terminal sessions. 
mestem fariliarization erequired approximately ‘forty five 
rinutes. Refarmiliarization tire was riniral. Tne 
Memmuscipants were recuired to “ill in the syster-pdroviced 
Seart torr for the first report after which the drafting was 
Optional. AS experience with the system was gzained the 
participants tended rore towards real-time report 
Beneration, forgoing use of the draft docurent. Simple cata 
entry after the Grad tl ee OT the report reauired 
approximately fifteen minutes. Real-tive report generation 
momwered  approrimately thirty five minutes. ‘No premature 
terminations were observed during the tests. 

Tue to pregrar modularization, disk access time (during 
which the operator must wait) is sizasle. Fach modrle 


Mmequ@ares approxyimetely one Minute to load into rain femrory. 
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mas, four Minutes during each rocificétion cycle are 
operator ‘dead tire’. Printing a fressage reauires two 
minutes; the draft document requires five minutes. 

several participant suggestions were incorporated during 
the test period (e.g. the addition of the “*” to the screen 
Sopleay to note an iter change). Modifications were easily 
accorvlished largely due to the unifcrmrity used in coce 
expressions and the localizaticn of the orocedures. No 
atterpt was rade to ontimize the Current UNITREP 
implementation. There remain items which, if revised, would 
provide more efficient operation cr clearer uniformity (e.g. 
the use of a common taple comparison procedure). Usive the 
techniques developed in Charter [II it shou.d be possible to 
implement the remaincer of the UNITREF within a short period 
See time anc apply a Ssirilar rethnodolozy to the otker NES 
reports. However, the limitations of JANUS/ADA (version 
1.4.5) would Reagrecy the Drostar to multiple arse 
meerations. 

Many additional areas for increasing the system's 
Pex) bility and/or utility remain to te explored: 
=— The creation of a module dedicated to the preparation of 

non-formatted messages. The rodule should integrate the 

heading and trailing items of a Joint Messageform (TI- 

19S), rrovide for a page printer, page alignment 


Sececeatimes dnd incorporate a full Screen text editor. 
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Poruions Of the module should be accessible to the 20S 
Moneoreparatioad Of the AMPN and RMXS free text data s§x2ts 
and for the printing of the message. 

EXamindtion of alternate rethods of storing the ovrograr 
memenatcammadta. ithe usé of a data structure baset uno0a 
Static record types is inflexible. A better method would 
Seem tore be writing the data to a disk file in the 
ressage format as it appears 3n the vrinted message copy. 
Examination of the feasitility of transfering the renort 
information ts the message communication center via a 
network system or via disk transfer. Hither mediur is 
capable of compatibility with communications eacuiftment. A 
€pecial purpose module could te developed for the mes‘caee 
Semler oslncorporate items recuiredc for broadcast (ene. 
Paceromoyecerlialization, circuit instructiogs, conversion 
to transmission code, special formatting reouiremrents). 
mime Srecessitysof punching a tarer tate or retypoine the 
information on a video display terminal (as is the 
current practice) would be eliminated as would the 
posieitilite of introducing errors. 

Creation of amaster design progrem to assist in tae 
@cveGloenent Of programs of this type. Sinceemany of the 
Steps involved in customizing a Drozgram for a particuler 
Regert are redundant, it should te feasible to develop a 
nisotere onoeerdy to assist im generating the necessary 


code. This prograr would require such basic information 
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meme eeacaea Sel Ldentifier, the component fields, tame 
type and specifications of data entered in éach fiele 
(e.g. numeric, alphanumeric, limited selections, table 
look-up, field length) and the more complex dependencies 
tetween data sets. Cne of the most tire consuming aspects 
of developing the UNITREP SUESYSTIM was adjusting screen 
formats for the access points, data sets names and the 
data set components, and Maintaining preper cursor: 
pesitionine wines Cee Wt) 2 eee 1 LT and Orns cere 
subprograms for the particular display. An interactive 
facility could be developed to integrate the formulation 
See Screen display with the required system overations 


on the data set. 


The UNITRFP itself proved to te a pivotal message. It’s 


Somvent, Especially in the aré€a of Unit Combat Readiness 


Assessment, is highly dependent on information available and 


Maintained by other sources (e.g. Personnel - squadron 
Roster, CEFNAVNCTE 1208/2; Maior) Som omen == eho Rice, 
Maircraft Status - VIDS/MAF system). While it is simple 


enough to créate a program to check format anc valic data 
Paeoe 86 CN iry, to develop a system to sift the raw data 
necessary to calculate a unit’s readiness is much more 
Bomplex. if a desire of the CORS prograr is to remove 


ome ctive human appraisal from the assessent of unit 


readiness it will be necessary to integrate these other 
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Sources at the unit level and determine the raw deta to be 
used in this calculation. Such a system would allow event 
driven automatic reporting but would be extremely 
sophisticated (and costly). 

Regardless of the levél of detail desired, if the 20S is 
LO have widespread distribution, herdwoare and software 
commonality will be required to reduce life cycle costs. It 
would not te cost effective to méintain a scftware litrary 
Deecimilar vrograns for €ach rake and rodel of ricrocorvuter 
in the fleet. In addition to the softwaré support aspects, 
moe COSt Of the hardware and its maintenance coulc be 
reduced threugh the cefense acquisition process. 

ee erie enoconouters Tay not heve long lifetimes ia 
meoarisSon to their military count@€rcarts, but their economy 
and universal utility rore than countertalances this. The 
mm@orber s@€rvice life méy in fact be a benefit as commercial 
equiprent will always be at or n@ar the staté€ of the art 
and at a competitive price. Every effort should be made to 
Meocure, for e@ach unit, a genéral purpose microcomputer 


System and the software tools to effectively make use of it. 
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APPENDIX A 


£OS JNITREP OPERATCR MANUAL 


The RCS UNITREP SU3SYST=M vrovides the message orignator 
MeeecOl fOr tne “rafting, preparation and review of UNITRIF 
Meeesaess. The HOS UNITREP Crerator Manual is subdivided as: 

o. BACKGROUND 

Ti. GENEPAL INSTALLATICK PRCCELURES 

Til. GENERAL PROGRAM OPERATION 

mv.) ERCGRAM USAGE 

We Duero UNTER er REPORTING SITUATIONS 


EoeteeaL INFORMATION 


ta 


Pei io ltR ALIVE SPATUS 
o. AlRCRArT ANT CREWS STATUS 


—_ |e oe ewe =— = |e oe ew ew 28 ew SP aw = OH ao ao ew ewe CR SW 2B EP Se ee se 22 2 ee ss eo aw a oe eo 2 ae =a» 


I. ZACKGRCUNT 
ioemenataond!: Cormand Authority end the Joint Chiefs of 
sptaff require large quantities of cetailed information in 
Meer tO Taintain the correct status of forces throughout 
mee world. Units are required to submit certain reports 
(e.g. CASREF, UNITREP and MOVEREP),. normally via message, to 
Mmeepeetneir sureriors informed of the organization lecation 


and status. This information is processed and made available 





Memenecessary commands through the World Wide Military 


Cormand and Control Syster (WWYCCS). The Navy intends te 


consolidate operational reports under tne proposed 
CPNAVINST 502.x series: Navy Reporting Structure (NRS) 
Coerational Reports. The instruction estaolishes 
requirerents or BeEvorts, Gata set Perma tying and 


Merinitions that are coOmmnatible with other Us7 ALL 
agencies. 

Meee ePeEmerervoOrtls ere 20rmealiy prrocessed by a computer at 
Ome of four WaMCCS sites. Such automated handling is 
Baeuremeiy sensitive to strict formatting reqrirements in 
crder to cerreéectly interpet received message data. Recent 
Stucies have shown an increasing trend in format and data 
eeror YrateS aS ce result cf stricter formatting requirerents 
7 Sree dt | menorts . his results in delays as tae 
Meeorchation 1S cuéewed to an operdtcr for fmranual error 
correction. Greater error rates may be anticipated wnen the 
Eroposed instruction is released unléss a Means of assisting 
moe Originetor in their preparation 1s employed. 

The conceft tehind the Resort Origination Syster (ROS) 
ZS tO provide the wessage originator a ricrocomputer based 
aid for the preparation of highly forratted reports. 
Meeetiately the 2CS SYSTEM will integrate modules for all the 
Bene Dotmts soronrt?>, STARFFRIP, 2MSREF, UNITREP, SURIMOVE and 
meopoves ine ROS UNITREP SUESZSTIM, version 1.1, is a 


memoir imolerentation of thi¢ concept, using the Ada 
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Mmeeranming lenguage, directed at supporting UNITAEP report 
meer. sSiOnd Of Adfinistrative Status and Aircraft and Crews 
Bretus Rerorts (CPNAVINST 3£083.£ sections 4 and 6&6). The 
MeotsteY is designed to assist three levels in the report 
Beneéeration cycles the system operator, the resscge drafter 
and the messege réleaser. 

To assist the system operator the progrem is ‘user 
friencly’, nevigatinge through the report by a combination of 
Bemecn Promcts, wrenu selection and error ressazes, The data 
set formats aré€ oresentéed in an understandable ranner with 
mecessS Limited to those that epoly for the type wessage. All 
Mmerormration is verified as it is entered, which zlirinates 
data inputs cbviously ian error (e.g. eélphapetic characters 
Meere numrers are required, incorrect date-tire groups, 
Mivalid Entry from a table). The drafting ecccurent which the 
system provides Morwweclesely aqlliened to vas Cis Da ¥ 
mereens., A message formatted output copy of tne report is 
Meovicec in acdditicn to the ability to reprocuce printed 
covies of fast messages. 

Ma-mecGan 122 cecumenrt provides the drafter with a quick 
means Of cCetecmining what is currently reportec, what is 
memrea to be reported and What the source for thdt 


6h eat hee tlaae sforvat 1s used for 


p+ 
in 


meiormation 
eech Gata iter. Drea roulor ole» orovides the actuel 


meeratvtige. wWaen reauiréd to perform a feedback verification 





MesaiOrmation held by the WWMCCS database, the SUSS7STEM 
@an automatically provide all data submitted 4s of a 
Memeorcular cerial report. The drafter is provided on line 


“HELP” information to aid in reel-time report preparation i 


tD 


Memedaesired. Limited information included in the governing 
Mretruction (e.g. look-up tables, reporting requirerents) is 
fade available on screen. 

Mor the reléeaser there exists an ortion to precvide a 
Mears docurent which consists of all data as is currently 
meportéed or that will be reported with the ressage. 
The data is logically grouped with reporting requirerents 
Merved and an explanation of any coded items (e.g. unit 


activity code, reconnaissance capatility). 


TI. GENERAL INSTALLATION PROCEDURES 

mmemecmeNerahP SUBSYSTEM, Version 1.1, is designed to 
run on a Z&2/A2@82 based S-dit microcomputer system with €4% 
Sree Wain werory and dual single-sided single-density floppy 
mrsk crives runsing under Tigital Research s CF/M syster 
meememouwee.c.). The current program is customized for an 
Peecoe Computer System ACS S8@¢@G-1 with a TATAMETIA ELITE e5a¢ 
keyboard and wermrinal. A Basic understanding of 
MeerocOmputer systenm operation is advisable. 

imei omeewine Steps descrite the procecures to be 
moeesowed uceon INITIAL RECEIPT of the prcegrar: 


ineecooy 8 the UNITREP master disk to a reformatted disk 
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and label it “UNITREP MASTER’. Store the raster disk in a 
safe location following normal safety procedures in the 
Bendling of flcppy disks. 

2) As the FOS UNITREP program rust run on a CP/M odased 
meuem, it is necessary to copy ycur version of CP/M to the 
Meeeers two tracks of the reformed UNITREP MASTER disk by 
meouing the SYSGEN comrand. It iS also necessary %0 copy the 
basic Pew, Output System aoe peripheral C Ome soa 
Mempece2. CO’, to INITREP MASTER’ fror any existing disk. 

3) JLatel ancther reformatted disk “UNITREP FIL?TS xxx- 
yyy’. Place the serial number of the UNITREP you intend to 
memerate first in the xxx slot. Each disk will hold appro- 
Mirateiy 25 UNITREP ressages. 

4) Insert the UNITRED MASTZR disk in the systers A: 
Meeve. insert the UNITREF FILES disk in the 3: drive. 

EF) Ctserve that the reauiréd files are on the UNITREE 
Meer « Ccisk by typing the directory commanc, IIR. The 


mequiredc files are: 


ie REE. CCM Eis TPEP1 COM UNITRSP 2 .COM UNI TREFS.COM 


UNITZ@CA UNITHOSE SLATUS 

ACTION INFO KREMSG CROSSRaif 
eee Lt. P= Peo tO PALL E. 2-6 

Epa T .TKT Hier . TXT 


Mmemeovuerator is not required to know the function of each file 
Pere snould be aWare that these files aré necessary to the 


Seer Operation of the vrograr. 


We 





€} Copy the two files UNIT@Q@A and UNITZGQ3B to the 
Gieeener FITNS disk on the F: drive. The purpose of these 
Mes Wilt be explained later. (This should always be done 


when switching in a new UNITREP FILES disk) 


TII. GENERAL PROGRAM CPERATION 
Peeeee the final output of the ROS UNITREP SUBSYSTEM is a 
formatted. hard copy message, only cnaracters that are 
corvatibie with both Crtical Character Reader (OCR) and 
BAUIOT ‘2 message transmission code) are acceptec from the 
Kertoard. The operator is autoratically restricted to these 


Mere O: cheracters. If the operetor attempts te put in any 
Meeeceptanle characters an aural tone will sound. Lowercase 
letters aré€ autcraticelly converted to uppercase. 

mmeerram Operation is controlled through a combination of 
renus anc screen ‘access poinus . Menus require the operaner 
Meme SELECT one of the displayed ortions. <Access points are 
mereen locations to which the cursor is automatically 


positioned (noted by the symbol “( })° ). Access points act 


Mmeomeelarags tO a particular data set or information iter. A 


- a 


set of valid access codes (e.g. °C” to change, °?° for help) 
Mees pOnd= tc Each access point and is displayed at the 
bottom of the e¢cisplay. The access codes determine the 
Mmeerat,~ons required. If aninvalid wKey is selected the 


MeetTalor 1s notified ty an aural tone and when appropriate, 


mentor message denoting the correct «ey to cepress. 


eae 





Throughcut the vorograr whenever an <X> is indicated the 
‘X° or the TAB key ray be depressed. Whenever an <ENTERD is 
indicated the CARRIAGE nrEeTURN cr SPACE BAR ray be depressed. 
A prefature A30RT of the prograt is available bdy 
depressing the CCNTROL and °C” keys sirultaneously (CTRI-C). 


ew NOTE state 


Moers conmadnded atcrt will most likely result in the loss 
eect) 6©6Gata Senereted since the last entry to the main 
(ACTION) rennu. 


2B ON TK IKE SNS NE OK OK I 


fPoeemany Gatd iters a Pxmited arount of cn line EELP 
Miearmatior is available. This is ottained by typing a °?° 


beecc cess point. tf EPLP is not availaole. an 


Mm 


at the data § 
merdl tone will sound. 

Motes | GCISCGUSSiCn cf tae inner opveretions of the 
BeeoYoltt” is required t9 acquaint the cperator with sore 
eerms meeecwveerly usec in the srozranm €isplays. The 
BeesisTEM s Current Werkfile are the files UNITO@ZA and 
Meerieogos. these two files holi all the informetion on the 
Unit s status es of the current roment. Once a message has 
eerepnecrerec ANT logged aS transmitted, the SUBSYSTEM 
@eeetes files UNI TxxxA and UNITxxx3 on the 3: dick (UNITRIEF 
Mepis), where xxx is the se€rial number for that report. When 


the 


in 


ecm as eC. tO “retrieve old inforfation it will 


in 


s/ 


ey 


meee tne Ge cisk for the required files. If they are not 


Meee ent the operator will be notifiec. 
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TV. PROGsAM USAGE 


To execute the UNITREP prograr tyve “UNITREP’. 


The first screen to appear at the start of the terminal 
session is the SIGN ON display (Figure A-i} which gives the 
version o= the program and the status o° the current message 


my the workfile. 


A «6ér PROGRAM ACTIONS 
Bommwowines the SIGN CN display is tae ACTICN. MENU 
PPigureé A-z). This display offers the operator the various 
program Seunons. The promot area vyrovides additional 
me ormation to the operator to sutport the requésted action. 
irror messages are displayed in the message aree. The ACTION 
menu will always be redisplayed with the required action 
Ms DEEN completed. A trief discussion of the purpose and 
eeomots for eet of the desired actions rollows. 
1. Frepare UNITREP Lraft Locunrent 
Pmecmeopt:Cnd agliows the oferator te prevere a draft 
g@ocumrent for assistance in the preparation of a UNITHEP or 
for review of the realeasing authority. tre draft decurent 
Seren stS Of all the information as curreatly reported by the 
Det, ah ExplaRation of any coded entries, the fields and 
Limited eéxvlanations/sources for each data set. The draft 


Moeument closely follows the screens presented in the R805 


Peewee oyo mm. The draft document may be used as a working 
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meoy DY Marking the appropriate areas for change and filling 
maeone corresponcing data fields. 

The operator is provided a prompt (Figure A-3a) if the 
current workfile has not been logged as transmitted (action 
-5-). The first selection allows the operator to obtain the 
Meee > CODY ror the releaser after all date provided by the 
Mmerver Has been entered. The second seléction perrits the 
meeation of another c¢raftirg document for the current 
revort. If the current workfile has already been transritted 
Mien last reported status as reflected in the SU3SYSTEM will 
Bmeviage the draft information without prompting. 

The next promot rerinds the operator that he must select 
meee UMNITREF SITUATION for which draft information is 
meemyredss AS discussed in OPNAVINST S50@2.5 paragraph 1.5, a 
normal UNITREP message 15 concerned only with a small sudset 
ef the Been le UNITREP date sets. Therefore data sets are 
mreuoed into subsets called SITUATIONS. In addition to the 
Situations established by the instruction (e.g. Personnel 
Status, Major EZaviprert Status), Local Information and Type 
Corander Fevorts areas have also been identified to group 
data sets. The UNITREP SITUATION MENU (Figure A-4) is then 
displayed. The operator selects those situations for which 
drafting information is desired. LOCAL information (message 
addressees, classification, priority, etc.) will always be 
Seevraeas ALL] other SITUATIONS must be reauestec. 


meccmpmescdratt document is shcewn in enclosure Ani. 
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Once a UNITREP has been logged as transmitted 
(action -S-) or erased (action -€-) this seléction rust de 
mae tO reset the current workfile for modification (recali 
that ALL UNITREP information for the unit iS raintained in 
files UNIT2@@A and UNIT@@G3). Any attempt to modify (action 
-3-) a transmitted message raises an Error which notifies of 
mae Dropper sequence for continuing. 

Dee lelete/Pocify/Add lata to the Feadiag UNITREP 

This option allows access to the SITUATICN MENU ane 
meen to the cata set screens. The UNITREP SITUATION MENU 
(Figure 4-4) is first displayed and the operator is 
prempted to select those areas which the pending message 
will affect. The Local Information area (-@-) will alwavs be 
entered, regarcless of whether or not it was selectec, on 
the first modificeticn cf a new message. This iS to Set such 
meeseascmime Classification anc ceclassification. All other 
SITUATICNS must be selected by the operator. The operator 
ray continue to modify the message by repeated selection of 


meron -c- until the Tressaqgeé has been logged as 


transritted (action -&-). 


This action is selected when the operator reauires 
the COlmmmcmeds Tessase as it is to te formatted for 


review/transmission, or for recall of paSt messages. 





Pomommeomoedre Offered by prompt (Figure A-3t): Pending 
or Cle. When an Old UNITREP is selected it will not provide 
amplification (AMPN) or remarks (RMKS) sets as these free 
text fields were purged from the SUBSYSTEM for memrory 
storage reasons when the ressage was logged as transmitted 
(action -&-). 

MocmomemavOrm= rs also given a t~riat format option (Fieure 
A-3c). OCR format gives 19 lines per page double spaced with 
Meeectandara left fargzgin and raximum line length of €S 
Bmeractérs. aAcdresses are indented to tab 25; FY, TC and 
INFC are ovrinted for demonstration purposes. eid ror 
transmission, NNNN’, is entered automatically at the end of 
the message. Standard Navel Message (Fleet 3roadcast) format 
is 42 lines per the page single spaced and a raximrur line 
length of €&. Addresses are indented to tab 8 preceeded by 
FM, TO and INFO aS appropriate. End of transmission, “BT’, 
moe tered where required. 

Soe eee ences UNIZREY as Transmitted 

This action is to be sel@cted cnce a message has 
been approved for trensrittal ANI RELEASED. Units assigning 
Maeir OWN GateE=-Lime grouds should insure that a proor copy 
of the message has been obtained since logging a message aS 
transmitted purges all of the amplification (AMPN) and 
Pemarks (RVKS) data sets from the SUESYSTEM data structure. 
A ovrompt (Figure A-3d) is displayed and the operator enters 


the date-timre group. 








BRR NOTH eae 

mreompt Entering of the transmittal date-time group is 
required as modification is allowed UNTIL TEE USER has 
Sepected this action. tn#s could cause the data for the 
SUBSYST2M to te inccrrect if subsequent modifications 
peerage after the acvual transsittal but prior to the 


logging as transmitted. 
MK AEE ANAK RK AER EK 


Seetrase rending Unitrep 


= =_— = — a mane = ap oe oe oe eee ee eee cee wee 


This action allows the operator to erase the pending 
Meena te and return the SUBSYSTEY to the inforration state 
that existed as of the last transmitted UNITREr. The 
operator is croempted (Figure A-Ze) to ensure en erase das 
been requestec. Once a UNITREP has been logged as 


Mpans@ritted it fey not be erased. 


AE RE Nie oF AK IR 
mee sural. olem @€rases a file by copying the last rile 
Mefteced aS transmitted. It is recommended taat when 
Switching UNITREP FILE disks the LAST transmitted file, 
Weeeixeee and UNIifzxxd, where xxXx.is the LAST transmitted 
Memial Wurber,. oe cCGpDied to the new UAITRiP Itt cist. 
mae Old cisk should then be aprprocriately annotated for 
mre fret rile - lest file sequence and stored as 
Smorocriate f0r its classification. If a file reauired 
TO complete the erase 1S sot present on the 5: disk 
eave Gie orogram Will terminate, notiiying the, operator 
Moat Gre recuirec file wust ce copied to the Bs disk 
Se), 
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Mien required ty higher authority to perforr a 
feedtack verification (OPNAVINST Z5&@3.5, paragraph 4.8) , 
this option “igeews wie Operator tc Enter an as 05 


Beemortation serial (Figure A-Sf). All data in the SU3SYSTEM 


ee 





as of that serial number will be listed in mressege format to 
mempare With the verification copy. Future versions will 


most likely chenge this to a date-time group under full NRS. 


When the neater has completed the terminal session 
mors action 1S used to terminate€ ftrograr execution. All 
modifications made will be obreservec in tne workfile. 
Therefore an entire generation cycle (draft, prepare, enter, 
review) need not be completed in a single setting. This 


mrees the fKicroccomputer syster for other uses. 


V2 UNTT Peters TTUATIONS 

As deéscrited in the proposed UNITREF AMS rule ti 04 
(OPNAVINST S3&@3.& paragravh 1.£) certain changes in an 
Breanization $s Status require aq UNITREIP, The ROS UNITREF 
Mmeeotote@ is organized around logical groupings based on 
these changes. Whenever the operator selects to modiry 
Baeronee=c=-) Or draft (action -1-}) the UNITREP SITUATION 
screen (igure A-4) is displayed. The operator selects those 
Situations that are required. Once the selection is corplete 

the program executes those areas. 
Paden Slttwation cr area is divided into one or rore 
Sereen displays. The area and Subarea are noted near the top 
Of the screen. Each individual information iter or data set 


3 


is Gisplayed in edie Seis ana numbered £058 





maentification purposes. Mo@ification to tHe current 
Maformation is controlled by using access points, °’{ )”, to 
mercn the cursor automatically positions. The operator 
enters an access code (keyboard character) and the 
appropriate action is taken or allowed. Valid access codes 
are displayed on each Screen and are included for esacn item 
in Table A-1. A Summary of the valid access code meanings: 
e or TAB: PECELIUE access to the data fields os 
mo@iagm@ cation OR grant access to additional subd-access 


points which guard the actual data fields. 


peace Or CAPRIAGs RETURN: no access reauired. 20 to next 
eccess/sut-access point. 


Cc“: allow access to data field(s) for change purposes. 
‘D’: mark this set for deletion. 

‘R’: restore a set previously marked for deletion. 

“A: amplification comments to be created (Figure 4-§). 
Oe : PELP information requested. 


Meo tIer enaracter: incorrect input. operator notifiec 65r 
an error message and/or aural tone. 


All Goraemeruem  mwodificatioas are brought TO the 
Operator’ ¢ attention by the use of symbols next to the 
appropriate access point(s) of the disrlay. When a date iter 
has been changed it will be marked with an “*°. When a data 
iter has reen tagged for deleteticn it will be marked with a 
‘DT’ (Use of the °R” access code removes this “D’). I? 
arplification comments have teen created an “A” will be 


marked next to the “*°. This allows the cperator to generate 


mae LTeport over a period of tire without the difficulty 
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of remembering what has or has not been changed. 411 symbols 
are removed when a new report is initiated with the 
Meeeperon Of liters Which are reported continucusly (e.g. 
OPER or EXER when required). 
RRR NOTH SR 

meee UNITREP SUSSYSTEN, Version 1.1, implements only the 

ECCAL, PovioetraAliVE dnd AIRCRAfT AND CREWS STATUS 

ejtuations. The operator is notified if azn unimplerented 


meea “as been selected. Tadie A-< orovides a quick data 
S€t to screen display cross referénce. 


ME NEE ACK HK EK OK IK OK 
Me LOCAL IANFCRMATION 
heeat Iiformation pertains to unit voar®icular items. 


(Z; screen displays. 


rs) | 


meee «6SECTion iS subdiviced into thre 
Infrequently Changed Ttems, Message Invormation and 
Meescelianceovs. All or part of the inforration in the lLocal 
seed Will apreer fcr each message. A description of each 
Sleplay follows. 
1. LCCAL -INFRECYENTLY CHANGED IPEMS- (Figure A-€) 
These items are nermally set when tne ROS UNITREF 
meet «61s inttially receivec. After this only iter -4- 
(Feeder Report) will require rodification. 
eee UNIT ~fyPs> Self explanatory. Used to determine type 
uniaue reporting requirements (e.g. MEDIC for 
ships/submarines only). 


—2-— UNIT IDENTIFICATION: Used in the creation of MSGIT and 


UNITII data sets (data field Message Criginator). 
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-5- LAST SERIAL: This item should only be changed when first 
meceivicer the HOS UNITHEP SUSSYSTEM to Synchronize the 
SUESYSTEM with the unit’s UNITREP serial number. A two 
line e€rror message warns the operator not to change this 
value excerpt for this reason. Three possitle situations 


Cictate the procedures to be followed: 


a) Newly activated unit, first serial @01: No action is 
required as the SUBSYSTEM automatically begins serial 
numters at @@1. 


do) Reactivated unit: Enter the serial number of the last 
UNITEEP transritted by the unit (it should nave noted 
déactivetion). Fill in UNITREP entries norrally. 


Smounmetuly aevive unit: Prior to generating the units 
next UNITREP it 1s necessery to initialize the 
Puce eee data Structure. This is accomplished by 
simulating the unit’s last report as a complete 
complement of data set submrissions. 

Enter the unit’s last transmitted serial minus l. 
(e.2. last sertal 473 - enter 472). This resets the 
SUB ES VC Sah ihe wUrpenteesertal to that of the last 
transmitted Serial. Cert GEL my £1) ee al 
UNITREP SITUATIONS as they existed as cf the last 
serial. When all entries have been confirmed, log the 
message aS transmitted (action -E&-) with the last 
serial number's date-tire group. After Initiating a 
New Report (action -2-) the SU3SYSTEM and unit 
serials will coincide. 


oot Poonae LC SE FREPAREIT AS A FEEIER REPORT: This iter 
deterrines if amessage should be prepared with a MSGIT 
or UNITIT data set and, as explained in OPNAVINST S523. 
Paragrarh e¢.5, depends on whether the unit is the 
Gebeasiag authority or if the message i¢ an input to 
another unit which will release it in eae combined report. 
If set to N (NO), a normal message will be prepared with 


PIicwreGlLp sete If set.to Y vans J All addresses, message 
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mitentaimond and the OPER or FRER set will be printed oa 
cover sheet(s) for review of the transmitting unit. The 
fOllowing page will tegin with the UNITID set and 
mecontain sthe unic particular items. The RM£S and DCLAS 
sets will listed on the last tage. 
Bye EOGRE SheschGh INFORMATICN- (Fagure A=?) 

This area is concernec with message addresses, 
Classification, e¢declassification and priority. A maxirum of 
fifteen (15) ACTION and fifteen (1£&) INFO aderessees are 
precessed ty the displey of Figure A~&. EELP is available to 
determine ACTION and IN¥O eddressees once ACTION/INFO has 


been selectec. If a message is classified, declassification 


mierrucetionus are reaouired to continue. 


Peo wie DOOR LLANEOUS= (Bhizgure A-S) 
These deta sets are recurrent for any UNITREP Situation 
meported. 

-1—- Operation/Exercise: This creates the OPER or EXER set as 
BeCMMENcGimOmy cnwperation Ck an Exercise can te in 
progress. Tnis remains fixed until changed by a 
subsequent UNITRFP. NO arplification (AMPN) is allowed. 

me oerosttLonm: mis creates the FPCSIT set. If the unit is a 
Ship cr submarine, the program atttomatically goes to 
ovomeemewormen tl) Other units must Select this to indicate 
ad change in position. If the position is “3XEMPT” a0 


feahe-bime Froup if required. 
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-3- REMARKS: Rerarks are used to amplify an entire message. 
A mwayirum of one hundred (1028) lines may be entered 
using the display of Figure A~-5. Ten (10) lines are 


processed per screen. 


Be ADMINISTRATIVE SITUATION (Figure A-12:} 

This information relates to OPNAVINST 38&¢@3.5 section 4, 
Administrative Svdabus Neporving. Five data sets are 
provided, all of which may be amplified (AMPN). 

—1- Cormand Change: (COMMANLT) Requires the operator to enter 
the new cemmander and the effective date-time group of 
the conmrand change. 

-2- Activity Crange: (ACTIV) Requires a two letter code for 
Ge OUaits Current ectivity as ottained from OPNAVINST 
Greve... (tattle B38-€. This tatle is @vaileble on screen 
Beeouwet the BPRLP facility. The operator input is cross 
checked against the table to Ensure a valid code has 
poet men veTca. 

-3- Physician Status: (MEITIC) Access to this data set is 
PiMecOm—nOMmmOni ve UWlitsiwhich are ships or submarines 
(OMG mec Se> Daraznaph 42.5). This is a check of? 
iter as the possibile entries are limited. The operator 
enters an “X° at the appropriate access point. At least 
OMEmCmomecamust be Selected. 

-4—- New Herporting CRG: (REFORG) The operator checks the 


appropriate reporting organization and enters the [TGC. 
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-5- Feedtack Verification: (VERIFY; Tnais set is submitted in 
reply to a feedback verification recuest (OPNAVINST 
Seis. > paragreph 4.8). The cperator selects the 
aermoorta.eereply dependent o2 the ouvcome of the report 


Werirtreetion. 


ee ALR SITUATION 

hememrormacion relates to OPNAVINST 3543.5 section ¢€ - 
MimerdigumangG@ GCrewS otatus Reporting. Certain liritations 
were imposed in the design of the RCS UNITREP SUBSYSTEM - a 
DmeteMay possess Up to four (4) different aircraft types 
and deploy these aircraft to no more than four (4) different 
meat )ons fOr Each tyve. If a unit Bae costes léss then four 
eeieceeterent aircraft types, ae tambo Of possible 
mocetions Can be ircreaséd ty specifying the possessed 
aircraft type up to the maximus lirit of four (4). Each 
Mo@ational specification allews fcur (4) Were locations. 

The HOS UNITREP AIR SITUATION iS Subdivided into three 
splays anemmeathorization Page , « Location Page and 4 


Status Page. 


SHiseaacplay shows the varicus Aircrart Tynes a unit has 
emcuera0le sme tae number of Aircrafteand Crews f&uthorized and 
the numder of Locatiors where they are deployed. The cursor 
Destt2oOnewvc wie ACCESS point cf the Type unless the Type is 


empty. in the latter case entry is to the first blanx 
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Bercraft Type field. The accessed/entered type is cross 
checked against CPNAVINST €5¢3.£& Table 3-2. This table is 
available to the user through the HELP facility. The cursor 
next voositions to the Authorized Aircraft (AIRAUTH) and 
Authorized Crews (CREWAUTE) access points. The appropriate 
Meee ss code 1S E€ntereéd to change. arplify, delete, restore 
Meeerequest HELP. The cursor positions to the Deployed 
Mmeaeron access point. The Location Page is displayed if an 
m is entered. 
SeenON fRiesure A-l2) 

Dnemloeat.or pace displayssup to four (4) locations 
Mmeewoich the aircraft are deployed. fhe first entry is 
meways named ECME PLATE, a pseudonym for the parent 
Organization location reported in the POSIT Sel. Ca 
ressage copy it is represented as a hyphen (’-") as 
Mequired ty CPNAVINST 3502.5. The operator enters a new 
melrnonumin tae Trirst tlank field or sele€cts which location 
momeccess 10r status information. 

3. STATYS (Figure Ax13) 

This page aisplays the current status of the 
eam rcular “aircraft type at the pdarticul@r location. All 
Evotls. Intorpmation for a given location may be celetec by 
entering a ‘“D° at the Location access point. Individual 
Status items may be deleted by entering a “D° at the 
appropriate access point. Whenever status items are marked 


OT Boer eounMomee te operator 15 prompted to modify a4 
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moorespondiag status display, if required (e.g. Teletioa of 

a detachment’s status information normaily requires an 

increase in the parent organization’s number of aircraft an¢ 

crews possessed). 

—“i~- Aircraft: (AIRSTAT) Full Mission Capeble/Partial Mission 
Capable (FMC/PMC) are always reported within tne 4IESTA® 
Set. A check 15 made to tnsure that Aircraft Pessessed = 
aiiGmeoeewMc tenms {Not Mission Capable). If this set i5 
deleted the Reconaissance Capability is assumed to have 
Deemmeaemerpec aiso. Therefore RECON will NOT be reported 
omeeerne GEG Out will in fact be purgec from the systelr 
(OPNAVINST 3583.58 section € veragreph Se). 

-Z- Crews: (CREWSTAT) Crews Formed are not allowed to exceei 
Crews neadcy. 

~3- Reconnaissance Capability: (Pee heetAS this Sser 92s 
reported in its entirety whenever @ change has been 
rade, individual capability deletions and additions are 
Pep@urccd.. 2.0e operator is provided a prompt as to the 
procedures to be followed. The vrimary recon capability 
is always entered first. sntries are checked against 
Sulpweowmocgo,o table b-2. The table is also aveilable 


Comccheemmrarouen the EELP facility. 
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Enclosure A-1 


cemple ROS UNITREP Draft Document 


Roo UNITREP LTRAFT DATA 
Beel TET Smeal S45 


Bis ottyY IN ACCORDANCE WITH OPNAVINST 2212.1 


th 





oe ee eee ters = LATA SET INFORMATION *¥**37% 


Mra tREP SITTUATICN - <X> appropriate iters 


m4 
1 

Q 
I 


wodiiy Local Inrormeation 


-i- Fersonnel Status 

-c- Administrative Status 

-3- snit Combat Readiness Assesment 

4 Aircraft and Crews Status 

—~ J -oerdvonre £duiprent Status 
meoemoGemc lm Capabllities Status 

-’7- Increased Tefense Feadiness Status 


I I 
Se ee ee et ee Set? 
fp 
i 


Reserve Augrentation Status 
-S- Tyre Cormmrander Reports 


— 
ee Ne 
( 
mM 
{ 


INFRECUZNILY CHANGED ITEMS - 
CEANGE CNLY ON INITIALIZATICN AND WEEN NECESS APY 


me) —i— Unit Tyre: 
wee ont ( )Subrerine ( )Air Gast ne ( )Other 


Mmemee-wonit Ieentification - OPNAVINST 3&@3.1 App. C 


— = amp & a= GER ee om oop GE - —_np EP ee GE Ge - op a Toe eee ee oe ee 


Meee o- bast Serial 


( ) -4- Message to pe Prepared as Feeder (Y/N): _ 
(UNITID vice MSGIT cata set) 


If Feeder is set to YES precedence,addresses and 
classification will be placed on the ressage cover 
sheet(s) for review by the transmitting unit. The 
Pee ieeecerewi li be used on the first line of the next 
page. Semarks and declassification lines will ve listed 

One Chet tial pase . 

If Feeder is set to NO all message information will occur 

in sé€quence with the MSGID set. 


PiemerocIE/UNITIL (Circle if Atteched) 
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v 
FM Heme eoN ONE LET THREE 
TC CINCEFACFIT PEARL HARBOR EI 

COMM eer LT 

CCMASWWINGPAS SAN DIEGO CA 

NAVIATACSN PEARL EAREOR EI 

ZEN/EELSUPPRON ONE 
INFO COMCARATIRWING FOURTEEN 
meen F T TENTIAL 
€ Classified For Demonstration Purposes Only ) 
ee MEOSAGH BEATER - CATA SET INFORMATION **¥*%%% 
( ) -1- Addresses 
( ) Cr¥®zinator 


ee ee ee eee i eee es ee ee es ee ee ee ee eee ee eee ee eee ee ee 


(eon 
( PAfo 
E( )} -2- Classification (e) -2= ee pecedence 
_ Uacles Be OUlen e 
Ueeees ideatial _ Ericritvy 
weere t _ Irmediate 
Tor Secret eee on 


—_——s ae Se ee eee eee Gee Ge ew fee OF ee SP oe i es ce ee ee ee ee es ee ee ee ce ce ec ee ee ee ee ee eee ee ie ee 


Additional Ajddressees (Indicate ACTION or INFC) 


° 
ow eee coe Ss oe ae el ee Ge ee ees Oe ee * ae oe oe oe oe eee ee ee eee ee eee ee ie _aeT ew oS = — ST nr an Ss! a= OR ae ews eee SRP ees ees aoe 
aan ee an &= —_— ae Oe eee Oe eee eee ie ee eee es ee ee ee ee i ee eee ei eee eee ee ee ee 


ow oe ee = — ee ec ee ee ee ieee ee sae ee eee ee 
=—_ se oe Ger ee wea Saw Se ew SE ee 8 ee ee ie ees ee i ee ee i es ee es es es ee Oe ee ee ee 
—_ oe ae oe oo — oe ee ee ee ee + mm ee ee ee ee ee i eee ee ee ee eee ee oe 
ow oe ewe oe oe a I Ne eS ee 
—_ Ger oe oe oe ~~ «= = ase ee ew ww ee 2 ee Oe ose Orr cee ee ee ewe ee ee ee ees ee ee es es es es se ee ee a ee 


—_— op ame ey meee we — | eer 8 = = ae a —_——~ eee oe am ce SD cee ee ee ee oe ie ee ee ee ee eee es ie ee ee ee ee eee 


LYS 





EXER/SUMMER RAIN// 


eR OPRA/EXER - DATA SET INFORMATION *# 7% x 
Only an Operation CR an Exercise can be underway, NOT 
BOTE. To change from an Operation to an Exercise or 
feeecaverse, tirst Ihr InsTS the current Operation or 
Exercise, then initiate the new Operation/ixercise. 


( ) -la- Creration Underway 
Coeration Codeword 
(MANDATORY ) 


Plectmecieinater and Numer 
SMe (EPTIONAL) 
{ 

I 
( ) -1t- Fxercise Underway 


! Exercise Nicknam Ez characters max) 


D 


ee ee ee ee ee ee eee ee ee ee ee ca, oe ee ee eee ee ee eee eee eee ee i ee 


—reew = we ei SP ewe es a aw Gees ae 


(MANTA TORY ) 
( }) -ic- Operaticn/Exercise Terminated 


mo@IlL/UNITREF/EC-1 DET 2/345// 


Zoe eal, NITID — DATA Sat INESCRMATION **¥*%*¥% 
Eeaoedata set 1S SET Within the program depending on the 
items noted on the cover pazée under Feeder. 


The format is: 


mer WNPIReE/—-—-vTecsace orixzidtator---/serial// 
or 
Peet Dy7 —--ressage originator--—-— /serial// 


AMPN (Circle if Attached) 


Poon T/NOR TH ISLAND /221190Z0C TES/ / 


CoreeerOS Tl» — LATA SET INFORMATION *¥**¥% 
Moye rmetor ships/<cubirarines. IF Location is EXEMPT then 
Women Oo retieogrmali1on 1S required. IF not at a stancarda 
heGaimnOnewe laa, HONG is required. The TTG is required for 
any Location or LAT/LONG when not exempt. 


( ) -2- Position - Recuired for ship/supb 
ioeeteron (Or 2L2MFT). or LAT/LCNG |. 
ddmmlC-dddammlec 


— cm eee eee ice ee Pe ee eee eee ee ee ee 





— = we ew ow oe — = ee os oe tee oo 


Mme—-Cl Date-lTime Group 
edhhmmr2zveMyy 
Z 


— amp cee coe Oe ee _ ee Ge oe 


AMPN (Circle if Attached) 
( ) ~3— Remarks: 


Memerecntime message. 


Remarks (EMKS) are used to ampli? 
Es at most. 


They are limited te 180 lin 


o_o ee eee ee eee oe es ees es es es ee ee ee ie Oe om ee ee i oe ee ee ee es eee ee ei 
— ee ee ee eee eee ee ees ee eee ee ee ei ee ei eee ee eee ee ee ee es ee ee ee ee 
oe eee eee oe oii oi oe ee ee eee eo ee ee ee ee ee ee ee ee eee ie ee es ee eee _—e Ee «= eo Gee weer ewe em eae Cf eee 
om eee ee ee ee ee eee ie ee —_— = eee es eee eee ei ee i eee eee ee ee es ee eo 
—— oe ee ee ee eo eee es ee ee i ee C- — < — ae Oe eee ee ee ee me — ee ee eee eee ee ee es ee es ee eee ee 


—_ & «as ae Ges Gee ee owe ee ee ee eee wwe we ee eee eo is ee is ee iw i ei ee ee oe tee we - e e  ee e ) ee e eee  ee ee ee e 


—e => Of eae ee Ser ee oe eee es SO ewe OE eo See e ea ce ee ee ee ee ee ee ee eee ee ee eee es ee eee ee eee ee ee ee eee ee ee op SP eee ee ee ee ee 
— = we fee ieee eee eee ee ec es ee ee es ee es ee eee ee eee eee oe eee oe ee oe 


_=_—_ — ——)_= = ee ee ee eo ie eo ee ee ee es ee es ee ei ee ee es ee ee ee 


(Additional attached) 
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CCMMAND/LCIR 2.7. NE¥GUY/2112@GZMAR83// 


emma COMMAND —- LATA SET INFORMATION **¥¥4%% 
BCTH items MANDATORY. Punctation optional 


.) -i- Cormand Change 
CO/OiC 


ce Gee owe gee es es ee ee es ee es ee ee ee es ie eee ee ee eee ee ee oe 


merective DTC échhinmZMyMyy 
Z 


—_—_——_— — es ae =~ -_ ee we ew oe 


AMPN (Circle if Attachee) 


ACTIV/CS// 


wreocrs ~ Cemtat Support 


Rote veee y — LATA SET INFORMATICN **¥*%*% 
weemeeces are scontained in TABLM B-E. 
fe) -2- Activity Change Code 


AMPN (Circle if Attached) 


REPCRG/CINCEACFLT/201E@0ZMARES// 


eee RPP ChG — TATA SET INPCRVATICN, *#¥¥e7e 
Memorys) Gicewes. reporting organization 


i) -4- New Beporting ORG Effective [IG ddhhrmrZz’Miyy 
ie 


( )CNC Ce) CRMC PACELT ( )CINCLANTELT ( JCINCUSNAVEUR 


AMPN (Circle if Attached ) 


weet PY /YALIT / / 


eco eee —- DATA SRT INSORMATICN ***¥*4% 
eee -edgtind@ata in the NES reecdback report is CORRECT 
GCCRRECTAL —- the appropriate information has teen submitted 


( ) -S— Feedtack Verification (ee varie 
( ) Corrected 
MeeN (Cirele if Attacned) 
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eet F/SE-2G/ AUTE :¢4// 
CREWAUTE/SH-2G/AUTP:@4// 
eeeeex ATR AUTHCRIZATIONS — CATA SIT INFCRMATION *¥¥%% 
MEGGrce Alt Morized are Pisted in the Weapon System 
Planning LTocurent CPNAVNOTE 12212. 
Crews Authorized are listed in the Unit Manpower 
Authorization OPNAVNOTE 1000/z, M+1 column. 


Aircraft Crews 
= ACCESS Authorizec Authorized 


( ) ©) __ a, 
AMON-AIRAUTE (Circle if Attached: 
AMPN-CREWAUTE 


Meenone 7S h-2G/PCSS 304/-/FMC:02/PMC :91// 
ee wo TAT/SH-éG/FORM:ZE/-/REATY :25// 
RECCN/SE-3G/-/CAMERA/TV// 


Peers Pecon Canability Tefinitions ****%*» 
CAMEFA: Hand Eeled Carrera 
mys lLelevision 


momo nee TATUS = LATA SET INFORMATION **¥*¥%% 
Mopteme secon capabilities are contained in TASLF 3-3. 


( ) ino rerat t ( ) ~2- Crews 
Possessed FMC PMG NMC Formed Ready 
( ) -3~ Reconaissance Capability Prirary 


peehonmtRotAT (Circle if Attached) 
AMPN-CREWSTAT 
mee h— YE CON 


ee hotel yon-cG/POSS :@2/CORAL SEA/EMC:Z2/PMC:22// 
BPpeI@/CRSWSTAT/SH—-3G /FORM:GZ/CCRAL SEA/RZADY 323 // 


Sees 2econ Cacability LTefinitions F**¥*** 


CAMERA: Hand Eeld Camera 
mvt Television 


Lug 





more rcmeeth SLATUS - DATA SET INFORMATICN *#*%%% 
Valid RECCN capabilities are contained in TABLE B-3. 


>) -i- Aircraft (ony) ~2- Crews 
Possessed EMC EME NMC Formed Ready 
>) ~3- Peconaissance Capability Primary 


aan awe @S == Ge ee oa ewer *" ewes *" ©] o= awe @6 es *— es @] a= mm enwenrew aw ew a= awe @ es aw owe oe awe 


AMPN-—AISSTAT (Circle if Attached) 
AMPN-CREWSTLT 
AMPN-RECON 
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Bereee ATR - NEW - DATA SET INFCRMATICH (#284 %% 
AUTHORIZATICAS 
Valid Aircraft Types are contained in TABLE B-2. 
Aircraft Authcrized are listed in the heapon Syster 
Planning Tocument OPNAYNOTE 132186. 
Crews Authorized are listed in the Unit Manrower 
Authorization CPNAVNCT! 1280/2, *+1 column. 


Besrera: t Aircrait Crews 
= eo 255 Type Authorized Authorized 


Peon l ION 
Meese ton iia 
SLATU 
merra nHEGON capabilities are contained in TABLE 3-3. 
(eae) ~1—- Aircraft ( ) -2- Crews 
Possessed EMG ae hie Forvued Ready 
i) -Z- Peconaissance Capability Primary 


—e ——— ome oe oe GEE ees es ee ee eee —— ee me oe ee -_- = oe ame = Oe ee oe fe Gee ee ee 


AMPN-AIRAUTE (Circle if Attached) 
AMPN-CREWAUTE 

AMPN-AIPSTAT 

AMPN-CREWSTAT 

AMPN-RECCN 


ead. 





Memo /LIZE GUARD DETACEMENT RETURNELT FROM SEORT CRUISE// 


eres PMKS —- DATA SET INFORMATION **x%% 
Change atove. Item -3- Remarks. 


PCLAS/TECL €i MAR &7// 


maemeee TCOLAS — DATA SaT INFORMATICN ***x%x 
The declassification line is sét in accordance with 
workin ot colg.1. It is required for all classified 
messages and is set on the covér page under Message 
Reader iter -4-. 





FM Seroureeeh ON DST TERE 
TO CINCPACFLT PEARL HAREOR ETI 
CCVre ier. 


COMASWWINGPAC SAN DIEGO CA 


NAVDATACEK PEAPL EAREOR 


1 
t+ 


ZEN/EZLSUPPRON ONZ 
INFO  COMCARAIRYING FCURTEEN 

MON FITENTIAL 

( Classified for Demonstration Purposes Only ) 
PYER/SUMMER PAIN// 
MSGII/UNITREP/HC-1 TET 3/345// 
COMMANT/LCIR 3.7. NEWGUY/2112@0Z"4283// 
AIRSTAT/SH-2G /PCSS :04/-/FMC 192/2MC:21// 
CREWSTAT/SP-2G/FCR™:B€/-/2 EALY :3£// 
PELITE/AIRSTAT /SH-2G /PCSS :22/CORAL SEA/FMC:22/PMC:2@// 
DELITE/CREWSTAT/SE-3G/FORM :23/CORAL SEA/READT:23// 
RYES/LIFE GUARD DETACPYENT RETURNEL FRC SECRT CRUISE// 
DCLAS/TECL 21 MAR 2?// 


NNNN 


SiS 





APPENDIX 3 


wee er ee ee ae ee ee oe awa "ao ase — —_ 8 awe oe ae = ae 


This appendix provides the definitions Oa the 
Subgpregrars from the JANUS/ATA litrary peckages (io, util, 


strlib, chainlib) used in the RCS UNITREF SUESYSTEV. 


Package IC Is 


Memeee 1/0 package for JANUS V. 1.4.2 
Seeiast Modified 10/13/82 


Pemonymeom, 1962 FP Software, F.C. 30x 1512, Madison 
=-=8®l SSr¢il. Permission is hereby given to distribute 
Bemereceom ode Droduced fror these libraries. 


mepe File Mode Is 
(No AccesS,Read_ Only,Write Only,2ead_¥rite); 


gOresult : Integer; --~- The result of tne IC operation 


Procedure Cren(Fyle : In Out File; Name : In String; 
Mode : In File Mode); 
soo eecimi coe file name and give it the moce mode 


mrpocedure Create(Fyle : In Cut File; Nare : In String; 
Mode : Ian File Mode}; 
-- Create the file name and give it the mode mode 


Procedure [Telete(Name : In String); 
~~ Telete the file nare 


Procedure Close(Fyle : In Cut File); 
=—- Close the file fyle 


Punctton Neame(Fyle : In File) Return String; 
—-- Return the name of the Coen file 


Function Is open(Fyle : In File) Return Boolean; 
[weeecmerien st Le fyle open? 





Function Get_LineiFyle : In File) Return String; 
-- Gét a line from the file fyle 


Procedure Fut_Hex‘{Fyle : In File; val : In Integer); 
-- Write the integer in hexidecimal (no speciel format) 


(fyle : In File) Return 300lean; 


Function indo = 
Reached (in a text file)? 


Peete: 

“~- End of File 
Function ICF(fvle : In File) Return 30clean; 

——- End of File Reached (in a tinery file)? 


Meection fick ruidifyle : In File) Return Boolean; 
——eecmt@e Lick full % 


Function End of _Line(fyle : In File} Return Ecolean; 
—-- Ind of Line Reached? 





meth Jlibe?¢; 
Package Util Is 
so spice for the package util 
-—- Last modifed $/22/82 
=~ Coatains the utility routines, ani the basic file 
~~ handling routines 


==sWomperient iSee AR Sortware, *.0. Bor 1512, Madison 
——e Wee aeorTul., FermisSion is hereby given tc distribute 
——memeecamuode produced from these libraries. 


Use JLit8@; -- So the file definitions are availasle 


BROceauGeenrr Exit; 
Procedure Halt; : 
Mimevuonmer: (Val : Integer) Return Brte; 
hugeuuew bo (val +: Integer) Retura Byte; 
Function Memavail Return Integer; 
Function Maxavail Return Integer; 
PimciwmcmaGemrand Line Xetugn String; 
-- Returns the command line 


-~ Tefault File Frocedures 


Function FConvert(Fyle : In File) Return 
meccecmuemerconvert(fyle ptr : in File F 
Fyle : Out File); 
—=m@onver, tO. and from the tyvue file to the type 
——Percmcnre “oy SyS.vem use only, Not to be used in 
Sauce. OPOerals . 


Miner roueotadcard Input Return File; 
—— Returns the initial default system input file 


Huet vomweotandard Output Heturna files 
—-— Returns the initial default system output file 


MUNGtGnesOUErent Input ReturnyFile; 
~smeemuras tie Curreat cetauit iaput rile 


MinGaecwmourrent Output Return File; 
-- Returns the current default output file 


Procedure Set Input(Fyle : In File); 
“aeoete une Current default input file to fyle 


Procedure Set Output(Fyle : In File); 
cer mervcurrent default outrut tile to fyie 


Fao Util; 





mackage Strlib Is 
-—urerpneeeandling Package Specification 
-- Last Modified €/ 3/82 


a MMoeverwecon LOCC RR Software, @P.C. Box 161 
—- WT cSS7G1. Permission is herety given to 
Bebe et Code precyced from these libraries. 


, Madison 
istribute 


me hy 


Subuvcemrstrice Is String(255); 
ua erinmime string lLendst h 
Subtype Strindex Is Integer Range 2..2£85; 
Zor akin String indices 


Migction Length (str : In Mstring) Return Intezer; 
Sercowrwetne Length of the string 


[eerron memove (str : Iti Mstring; pos,size : In Strindex) 
PeEUSTa Sst rite; 
-~ Rerove size characters from str at vos 


Mmmction Insert (source,cest : In MString} 
Poses in Stmindex) Return Vewrins; 
-- Insert source into dest at pos 


mmmetion f&xtract (str : In string; pos,size : In Stcliacdcer) 
Retura Mstring; 
—- Extract size characters from str at pos 


Memetion Position (pattern,str : Mstring}) Return Integer; 
—<- Return the position of tne first occuraace of pattern 
Siesta Or © Li there 1s none 


Munetion char to str (cher : charecter) Return String; 
——uomment a Character into a4 String of length i 


Mamction strato int (str : Mstring) Return integer; 
Orne tea String into an iateger 


miectlon int) to str (int : Integer) Return Mstrineg: 
-- Convert an integer into a string 


mad Strlit; 





Package Chainlibd Is 
~aeriewprerram chaining and celling library 
-- Last modified 9/ ¢/8z 


Bem vVEneiusiocee -t software, P.O. Box 1512, Madison 
~~ WY E27@1. Permission is hereby given to distribute 
Bowe pyect Code produced from these libraries. 


Procedure Chain(Str : In String); 
~teunamms € prozravf, saving the data serment 
——mvome.  .ne Jlibeg library must be the same for 
Geeochwnee LOG Cidgining dnc Chained programs for tnis 
-- routine to work 


Procedure Simple Chain(Str : In String); 
-- Chains a program, destroying the data seegrent 


Ioieeccrre Frosecall(Str : In String); 
-- Calls a program (Not Implemented) 


Pracecure Prog Return; 
-- Feturns from a called crogram (Not Implemented) 


mad Chainlit; 


Pes 





APPENDIX C 


~ 


RCS UNITREP COMPUTER LISTING 


mois sappenaix provides the computer listing of the ROS 


MeeerREP SUSSYSTEM. The listing is organized to follow 


the 


SEtehUmemmoOr chapter IV (Implementation): 


Beceem hOgren support Components 
ons 1c 
rete 6 
Wi eee dl 
tL 
Urtest 


Program Tata Components 
urglibl 
urlocalaé 
weeenins 
urairs 
unitrepa 
vnitrep3 


PeOeram control Cofponents 
uma Cre D 
unitrepi 
unitrepe 
UaILtrep 
tol CTA 
filerB 


BaOeram cperative Components 
urlocal 
urilocail 
iran in 
wera ir 
rei ri 
Wma re 
wraird 


Miscellanecus 
mobtialAa 
Metta ls 





PeUKAGE consio IS 
=e OdCkdee provides console screen oriented 
-~ i/o procedures for a LTatarmedia Elite 2£2@ 
== tertrinal 


bell: CONSTANT s= CHARACTER ‘VAL(7);3 -~ Aural beep 
carriage return: CCNSTANT := CERARACTEP“VAL(13); 
tab: CONSTANT := CHARACTER ’VAL(S); 


PRCCEDURE getxy_irmrediate(x,y: IN INTEGER; 
char: CUT CRARECTEP }; 
[mor uloOnS tne cursor at Screén position x,y and 
—ommEacm tT Or exec tly One character to be invut. 
-~ Converts to 3AUPOT/CCR only characters 


PROCEIURS getxy(x,y: IN INTEGER; 
emo. CUL STR ENG, 
field length: IN INTEGER); 
somes procedure positions the cursor at screen 
== position x,y reads the input, temp for a raxirur 
—aeeeesemld length characters, and converts to 
~-—- FAUDCT/CCR characters if required. 


PROCEDURE putxyv(x,y: IN INTEGER; temp: IN STRING); 
oop ons the cursor at screen pesition x,y and 
== #eites the input, temp, at this position. 


PROCEDURE slé€af screen; 
~~ Clears the conscle disslay. 


FUNCTICN mark(xx,yy: IN INTEGER) RETURN BOOLEAN; 


SemerectoefOr an <X>| tad cr carriege return:space 
== at the x/y coordinates 


PROCEIUR? clear field(x,y,len: IN INTEGER); 
Somerears the screen field of length len at x,y 


ENT consio; 





Seeeeecounit Do ,util; —- JANUS litrary packages 
PeGRAGE SOLY consio IS 
-- This package provides console screen oriented 
-- i/o procedures for Tatamedia Flite 2520. 
-- Must be tailored to the particular syster. 


~—- tertinal dependent constants 
position cursor: CONSTANT := CFARACTER’VAL(12); 
clear: CONSTANT := CHARACTER VAL(39); 
rubout: CCNSTANT := CEARACTER’VAL(127);3 
ecreen tackspace: CCNSTANT := CEBARACTER‘VAL(&); 


FROCEIURE gotoxy(x,y: IN INTEGER) IS 
we wees troceaure {1S modified for the screen of a 
coy fever l ie 2o08 terminal. It must be chenged 
SEcenecGwirea fOr Cach new terminal 
Xt: LN GER; 


LEGIN 

sok &P IS 
WREN @,..31 => xx 3:= xX +96; 
Meee. Co => XX s= Xi + 22; 
WHEN €4..78 => xx = 4 - 3e3 


WEEN OTHERS => PUT( Invalid x coordinate )3 
:= SE; 


m4 
b4 
1) 


ENT CASE; 


CASE y IS 
Bieetesce —7/ YY := y + OE; 7 
Wier eenS => PUT( Invalid y coordinate }; 
yy := SE; | 
ENT CASE; 
-- set addressing mode and coordinates for xy 
Zeer rid sacdressing 
PUG ta Oae cursor); 
PUT( CHARACTER ‘“VAL(xx));5 
PUT(CHARACTER’VAL(yy) )3 
END gotoxy; 


PROCEDURE baudot_convert( char: IN CUT CHARACTER) IS 
Wore leg ee aelul 
-- Takes char and converts to legal 3AUIOT/OCE 
-- character. IF lower case, capitalizes. If 
-- dllegal converts to null and puts out an aural 
=— tone 
BEGIN 
GASH cher IS 
=—- no action on these control characters 
WHEN CHAPACTER’VAL(@) |! CEARACTER’VAL(2) | 
ORMARACTER“VAL(4)..CEHARACTER “VAL(8@) | 
CHARACTER“ VAL(12)..CHARACTEP “VAL(21) | 
CHARACTER’ VAL(127) = eres 


PE 





——sd00m. anim revoot on control-c 
WHEN CHARACTER“VAL(3) => clear_screen; 
PUT( User Commanded Abort... )} 
Malt; 
-- allow tab “’VAL(Q9) to function aS a mark 
WHEN CHARACTER ’VAL(S) => char := °X’3 
-- allowable EAUTCT characters 


wo g ere j @ ey a | Fae fA j oo 7 FO j 

oe) pee @ oe Ae a A | Jo, & a? Fes i Pie } 

RG &, wae a «0 SS 
mes) ius | => NULL} 


== capitalize on Casé 

BEEN a’. .°2° => 

char := CRBARACTER’VAL( CHARACTIR’ FOS (char) -32); 

Suemiemmierd. | Ouners te nul) end notify 
=—ruccrmdy the pel 

WEEN OTHERS => char := CHARACTER’ VAL(2); PUT(bell); 

FNI CASE; 
ENT taudot convert; 


PROCEDURE getxy_immediate(x,y: IN INTEGER; 
chars CUs CEARACTER) IS 
USE jo; =o OnpemmG lose 
—-s pets exactly one character from screen positioa 
—= ¥gy and converts to BAULOT/OCR 
fyhe: HIRE; 
3EGIN | , 7 
Cpen(fyle, XBD: ,Read Only); -- JANUS keyboard 
ecioxy(x,y)3 | 
cE" (fyle,char); 
CLOSE(fyle); 
Me 1dot convert (char) ; 
PUT (char)3 
EMT wetxy_immecdiate; 


PROCELORE getxy(x,y: IN INTEGER; 
temp: OUT STRING; 
field length: IN INTGER) IS 
USE str dds ~S lew euhact.,cnanr to otr 
S- ses procedure positions the cursor at screen 
mcm rel £,y Ledds the input, terp for a raxirur 
——Ommereld leseth characters,,and converts to 
-- BAUDOTOCR characters if required. Manipulation 
=e character deletion alloweds 


key: CHARACTER; 
xnext: INTEGER := x; 
BEGIN = 
temp := ; 
LOCF 
getxy_immediate(xnext,y,key); 
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Pei T WH key = Pecos Se bUna) =SetOenore 1mm 
Ii key = at AND xnext > x THEN 
por serean b eke space); 
Ee {  ~ 5 ~- erase screen nee cee 
temp := Extract(terr,1,length(termp)-1); 
==wer ove trom strine 
moext :=eirss 7 P; 
ELS I? rey = pureut and xnext = x TEEN 
FUT( bell); 
ELSIF key = CEARATTER’VAL(2) THEN 
NOLL; -- jile@zal cNheracter 
ELSE 
temp := temp & Char _to Str(xey); 
KNiem s=“sexrwl; 
mL we energyext > field leneth +'x — 1; 
ENT IF; 


ENT LCOP; 
Seer Urdimende Planks 

PO rae IN REVERS & ee -Length(temp) Cer 

UXIT WHEN terp(i; /= : 

We terr(i) = “ °~ THIN 

perme c= EX eect (temp,1,i-1); 

ENT IF; 

NG LS las 
UNIT getxy; 


FROCEIURE putxy(x,y: It INTAGER; temp: IN STRING) IS 
“-- Fositions the cursor at screen pesition x,y and 
=—=swrices tne iguut, “erp, at this position. 
BEGIN 
Potoxy(x,y)i 
PUT (temp); 
ONL Putry; 


Pe@CeyUrr clear screen iS 
-~ Clears the console screen 


BEGIN 
PUT(clear); 
ENT cléar screen; 


FONCTICN mark(xx,yy: IN INTEGER) RETURN BOCOLKFAN IS 
—- used in menu selection areas where a boolean 
-- value is required by the ctrogram. 
key: CHARACTER; 
BEGIN 
ECOP 
getxy_immrediate(xx,yy,xey); 
IF key = “°X” THEN 
XETURN TRUE; 





ELSIF key = tab THEN 
RETURN TRUE; 
ELSIF key = carriage return THEN 
RETURN FALSE; 
ELSIF key = ~ ° THEN 
RETURN FALSE; 
Ries 
FUT (bell); 
END IF; 
ENI LCOP; 
ENT rark; 


MROCETURE clear field(x,y,len: IN INTEGER) IS 
-- clears screen data fields for lei characters 
BEGIN 
PL ethee..ben-1 LOOP 
Butmix-i,y, - )3 
ENT LCOP; 
ENT clear field; 


3NE consio; 
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PeoOkKAGH printio [IS 
Sememovades interface to the printer 


mene count: ENDECER; 
-- format parameters 
fax lines in page,max_ line length, 
jine spacing, header lines:INTEGER; 
rargin,énd trans: STRING; 
Beaater: FILE; 


FROCEDURE printer on; 
PROCELURE printer off; 


PROCETURE NEW PaGh; 
Sompace © ject 


TYPE format IS (mrsg,ocr,text); 
Bee! format state [S ARRAY 

(format RANGE msz..text) OF 300LEAN;} 
mormrat 1S: format state; 


PROCEDURE set format(format_type: IN format); 
—- sets page formatting 


PROCEDURE put_printer(content: IN STRING); 
Zier s tue cOatTent 


END printic; 


LES 





mete strlib,io; —~~JANUS/ATA libraries 
PACKAGE ECLTY printio IS 
-~- Frovides interface to the printer 


-- for Teletyre Corp model 4@ printer 
page_eject: CONSTANT := CHARACTER’ VAL(12); 


PROCEDURE printer _on [5 
USE io; SCD e a 
aomunvUSO/AEA printer is LST: 
BEGIN 4 7 
Spem@eriates, Lol: ,¥rite Cnly); 
meee printer on; 


PeOUCELTINNE printer off I5 
USE tio; SoG OS Ff 
32GIN 

CicSe(printer); 
mie rinter off; 


PROCEIURE NEW PAGE IS 
memede2ec GC yect. Can te elirinated with AVA 
-- supporting the NEW PAGE procedure 
BEGIN 
PUT(rrinter,page eject); 
Hifvewcouat := 1; 
END NEW PAGE; 


FROCELURE set_format(format_type: IN format) IS 
=- S@€tTS page forratting 
BEGIN 

forrat_is(msg) := FAISE; 

format_is(ocr) := FALSE; 

fcimmeausis{(text) := FALSE; 

iMerormat type = rsg TEEN 
format is(msg) := TRUE; 
rax lines in page := 42; 
faeeene: length := €9%; 
line spacing := 1; 
Beadeer lines <= GS; 
hRargin := eyneete: 
end trans := 37 ; 

ELSIF format_type = ocr THEN 
femmat istocr) := TRUE; 
max lines in _vage := 19; 
max line length := €9; 
imine sspdcineg 2} 
header_iines ’ 
Margin := . an 
end trans := NNNN 5 


vA 





ELS pat Onmdat hype — Ue%t 
format_is(text) := TRUE; 
max lines in page := £5; 
fameline length := &%,; 
line spacing := 1; 
Med@er lines <= €; 
margin := ee 
end trans := ’ 

END IF; 

ENT) set_formrat; 


PaOcwaURY put printer(content: IN STRING; IS 
USE striibd; —— Fen abient x tract 
Zoi dtS tne content 
bueer: STRING; 
SECGIN 
buffer := content; 
=f Line length according to format 
“F Length(buffer) > max_line_ length THEN 
tuffer := Extract(buffer,1,max line length); 
BNI If; 
suffer := margin & buffer; 
-- print header 
(F line count = 1 TEEN 
FOR i IN 1..-header lines LOCP 
NEW _LINE(printer); 
ENT LOCP; 
“NI IF; 
Seon line 
PUT(eRinter,buffer); 
eRe Ss pacine 
tei e.line Spacing LCCR 
NEW LINE (printer); 
ENT LOOP; 
mipemcouates= line count + 1; 
Seeme ject 
IF line count > max_lines in _page TEEN 
NEW PAGE; 
ENT IF; 
EVE purl printer, 


ae printio; 


piety 





Poh. prbn tin, 
OG 


10, 
_uraltis 
PACKAG? urgeicbal IS 
ip i worl 2t hide, Saeeerecormat in program status 
C@msic,; EOL canrlale TEeturd 
ureltl; peeomeconmeit set/process comment 


-~- global veriables 


fyle: FILE; 

key: CHARACTER; == Sijgzle Wey sead 
Saepeonstant Single Characters 

xs CONSTANT := x5 VamCONS PANT 3= “Y ; 

n: CONSTANT := “Nj bh: CONSTANT := “H; 

eeoenomem: *= C° ; e: CONSTANT := °:°3 

eeOOto iT 2=—A ; d: CONSTANT := °D’$ 

me CONS TAN ae ; ; 

Space: CCASTANT := Paves Genome. fa 92% 

me_input: CCNSTAAT := carriage retura; 

eae buffer, awrtgog: STRING; -- file/xeyboard buffers 

Biankla,@asnln: STRING(8¢C); -- screen lines 


os cae e Ome veth. 1 
weslyclvod2,2 haek,n Wark,r Wark ,x sone Wark, 
Ree ecarj nual. Spring: sle une 


success,reselect: JOOLFAN; -- general dooleans 
purber: Ihirek; ~~ general numbers 


~—onOouGl a@eblo 1 Gata 


nie cdiewicn io .drefteneww,modify,print, 
log,erase,verify,auit) ; 
ee P action Stete IS ARRAY (action RANGE draft... Quit) 
Cr ecoC he An, 
Beaton esedet. on State; 


== "hone l ereds 
TYPE areac 1S (pers,admrin,comtat,air,equip,specan, 
defense ,reserve,tycom,local); 
TYPE area state IS ARRAY (areas RANG? pers..lecal) 


enmea 1s: area state; 


Meese ce 1S (ship,submarine,aic_wnit,shore,other); 


t- 
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pemomoenhan Status Stewie ture used to colfrunicate 
-- between the program modules 
PIPE progrem.status [IS 
RECCRI 
UN ts unit type; 
initial entry: BOOLEAN; 
Pome trailer: SCCLEAN; 
ressage transmitted: 300LEAN: 
Cheer C Titra c © en > action stats; 
Cumrenmt area area state; 
Cweremn format : ee Saves 
Pode Linge: INTEGER 
workfile: STRING(14); 
ENT RECORD; 


programr:rrogram status; 


PROCIITUPRE border; 
—-- screen outlire 


PROCEDURE process _cormrent (data _ set: IN STRING; 
comment: iN ClT comment set); 
-- processes free text (AMFN,FYKS, data sets 


PROCEDURE print _comment(data set: Ih STRING); 
-- prints amplification (AMPN* data sets 


PROCEIURE error(number: IN INTEGER): 
—eeerovreces CONSOLE Ermer TEe=Baces, 


FROCETURE helv(data set: INK STR Gite 
-- Frovides 20S UNITRE2 HELP information 


FROCELURE view table(filename: IN STRING); 
-- Provides user with the cotion to exarine valid 


-- table entries from CPNAYINET 2563.5 


FUNCTION reavired print (changed item: 3O00LEAN} 
RETURN ECOLEAN; 


—-- determines if a given déta set is to be printed 
~eaerOrT bne required report 


PROCEDURE draft aid(data_set: IN STRING); 
Toadies assistance 1 formset a draft document 
—Sepetsetne draft information for data set 


aNT urglobel; 


ee 





mie io, ctrlid, =aeoMNOS/ALA Utsreries 
SOmS0, Drintio, 
--# urtest, =-)i0 PReeedure error ei 
UDeEcl; 
PACKAGE EFOIY urglobal IS 
moe consio, 
urgltl; 
== Plobal variables initialization per*crmed here as 
-- JANUS/ADA cannot initialize structured variables. 
-~- Would be accomplished in specification in full 
-~- ATA. 


PROCIDURE border IS. 
-- draws the standard border 
3EGIN 
clear screen; 
putxy (22, g, 

Rea Cans 0 Neer 
putxy(@,2,dashln); 
putxy (2,21,dashln)} 

END torder; 


PROCELURE process _comment(data set: IN STRING; 
comment: IN OUT comrent eet) 1S 
WS eestrili bp; == etracy 
US# io; --Open,CLOS!,Create,Telete,GiT LINk 


—-- frocesses all comment sets 10 lines/tiire 


BontemcemionaAy (1..Tax comment) CF 
; STRING{ wax line leisthy,; 
Slo: CCNSTANT := &; S~=Screcuouline ofrset 


PROCEIURE comrmentmrask IS 
Seis G abi; = «KH PA U 
-=—Gmaws the comment screen 
3EGIN 
border; 7 7 
IF Extract(data_set,1,4) = RMKS 
Ue OO , "REMARKS SECTICN ~ &- 
& Extr AetAdatagset, Syl) 5 
mow eecOmmemee 2 Sena rkse 
putxy(€,3, AMPLIFICATION SECTICN - § & cate_set)} 
ENT IF; 
FCF line_number IN 1..max_comrment LOOP 
puters, line. nurber + slo, 
Txtract(dashln,1,max line length) ); 
END LCCP; 
ENI comrmentrask; 
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PROCEKIURE fill_commentmask IS 
BEGIA 
commentmrask; 
HOR Tine _number IN 1..comment.nurber of lines LOO? 
putxy(S,line_number + slo,content (line number) }3 
END LOOP; 
ENT fill _commentmask; 


BEGIN 
-- read in existing data 
IF comment.change THEN | 
Orenm(tyle,data set & .AMP ,Read Only); 
Pegeicmaur ver IN l..corment.nurber of lines LCOP 
content(line number) := GET _LINE(fyile); 
END LCCP; 
ree ume ne IN comment.rutfber of lines+1.. 
max comment LOOP 
content(line_number) := null string; 
ENT LOCP; 
CLCSE(fyle); 
ENT IF; 
memOnccessS COmMERt datd 
IF NCT comment.change TEEN 
ccumeme. mumoer of lines <= 9; 
commrentrask; 
FOR line number IN 1..max_comment LCOF 
content(line number) := null string; 
ENT LOCP; 
Wieeeeseenurber IN 1..rax corrent LCOP 
getxy_immediate(S,line_number+slo,xey); 
SRIT WHEN key = no_input CR key = space; 
ccomment.change := TRUE; 
eetxy(€,line nurber + slo,content(line numter) ,61);3 
content(line number) := Char to Str(key) 
& contentfline number); 
comment .nurber_of_ lines := line number; 
ENT LOCP; 
ENT IF; 
comment pages: LOOP 
fill_cormrentrask; a 
putxy(2,2@, <ENTER> to continue, <C> to change, & 
Tee Gk vor erdse. <2> for help }; 
getxy_immediete(78,20,key); 


CASE key IS 
WHEN no_input ; space => EXIT; 
WPEN c =D 


putxy(2,2@,blankln); 

pPuLxy( 2,20, Position cursor to line to change. 

& and type over — ENTIRE LINE MUST BF CEANGED ); 

FOR line number IN 1.. max comment LOOP 
Petmumgmeemrediate(s, lide nurber + slo.key); | 


mee: 





IF key = no_input OF key = space TEEN 
putxy(5,line numter+slo, 
content(line aurter)) ; 
ELSE 
clear field(€,line number + $lo,€1); 
getxy(6,line numter + slo,buffer,él1); 
content(line number) := Char to Str(key) 
& buffer; 
Pieere ouKber > comment .1umrber of lines 
TEEN 
corment.numrber_cf lines := line number; 
END IF; 
ZNT IF; 
BN LCOP ; 
WEEN e€ => corment.change := FALSF; 
ieee de aurber IN I. .rax_corment LOOP 
content(line nurter) := null string; 
END LOOP; : 
WEEN ques => help(' AMPN/RMKS ); 
fill _comrentmask; 
WHEN OTEERS =>-error(é); -~- incorrect invut 
ENT CASE#; 
Memecontent(1) = null string THEN 
commrent.change := FALS#£; 
corment .number of lines := @;3 
ENT IF; 
ENT LCOFP corment page; 
-- Write data to File if reaquired 
CFLFTE(data_set & .AMP ); 
IF comrment.change THEN 7 
Create(fyle,data set & .AMP ,Write Only); 
FOR line number IN 1..comment. aurbper_of_lines LCCp 
FUT(fyle,contentiline number!) ; 
NEW LINE(fyle); 
IND LOCP; 
CLOSE(fyle); 
BNL If; 
END frocess_commrent; 


PooOmeURieorint comment(data set: IN STRING) IS 
USE printio; == pC ibe 
Uses io, peOpedt, Gott GINE, END OF FILF ,CLOS? 
=—— pol nw aehy amplification/remarks lines required 
~~ for old messages -— .aMp files are purged 
-- when message is logged aS transmitted 
EFEGIN . 
Open(fyle,data_set & ".AMF ,Read _Cnuly); 
file buffer := "AMPN/) & GET _LINE(fyle); 
GGe 
IF END OF_FILE(fyle) TEEN >. 
puenburfer := file_burfer & // ; 


ola a 





Rinter(file werfer); 
(fyle); 


put _ Diiter (tive: turer ) ; 
Bile buffer := GRY LINE(fyle); 
END es 
ENU LOOP; 
ENT print. corment; 


PROCELURE error(nurber: IN INTEGER) IS 
USE io,strlind; 
ao USP aytest; ~~ Meer test file 
—- processes error messages 


jnondex: INTEGER; 
message: STRIAG(&@); 


BEGIN ; ; 
Open(fyle, FRRMSG ,Read Culy); 
index :s= 1; 
LOOr 
reesege := Get_Line(fyle); 
I’ avmber = index THEN 
igh 
ELSIF End of _File(fyle) TEEN 
ressage := Int_to_Str(number) & 
: Not found in EFRMSG 
Meeks 
LSI 
mo@ex 3:= incex + l; 
NL iP; 
END LCCP; 
Close(fyle) ; 
Bur@seil ); 


putXY(5,22, *** ERROR ©); . 
putxy(iss,22,message & . <EATERD ); 
getxy_ immediate(78,22,key ); 
--# remove next 2 i Pomc noduet ion 
--# EUT(test file, FRROR & message); 
--# New Line(test file); 
putxy(@,22, dlanklna); 
END error; 


+— 
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PROCELTURE heip(data set: IN STRING) IS 
USE 10; s-Gpen, LL0Se, cat. LINE 
—-# USE urtest; =~ (Lest _file 


S=srrovlces aelp in? orration for a Particular data 
~- iter 


EEGIN 
WOrder; n . 
putxy(@,3, FELP INFORMATION - — & data_set); 
NEW LINE; 
Open(fyle,’ edites 
LOOP 
Pile rer s= Cel Liwettyle); 
I} te ccirer - = data_ See lee 
IGG Er 
file buffer s= GET ogee te?) 
EXIT WEEN file buffer = °. -— delitever 
PUT(f£ile buffer); NEW LINE}. ——- display line 
END LCOP; 
putxy(Z5,22, <ENTER> to Continue )}3 
getxy immediate(44,20,x¢y)} 
EXIT; 


abst 
--keen searching for data set until end 
EYIT WHEN END CF FILE (fyle); 
END IF; 
ENT LOOP; 
Giese (fy le )'; 
--# keep track of help accesses 
Zoenemove 1 Loin Pree uct1 on 
--4 FUT(test_ file, HELP -  & data_set); 
--# NEW LINE (test_file); 
ENT helt; 


FROCZDURE view_table(filename: IN STRIAG) IS 
USE 10} =~ Cpen,CLOSE,GET LINE 
BEGIN 
PU enema) ; 
PwUXY (eee , "GUNDER> te womtinue, ENDER <i> & 
to View Valid Entries: ); 
EE Owermetaewce ) TREN 
Oven(fyle,filename, Read Caly); 
WFILE NOT END _OF_FILE(fyle) LOOP 
GOreGer; a 
putzy(Q9,1, VALID ENTRIES (REF. OPNAVINST “ & 
CEOS & filename & ) ); 
BOR ¥ TN Semeel LOOP 
EXIT WEEN END OF FILE(fyle); 
buffer := GIT LINE(fyle); 
putxy(%,y,burfer); 


t- 
~“) 
rhs 





END LCCP; 
putxy(@,22, <ENTER> to Continue, ENTER <X> to ” & 
Exit:"); 

WXIT WHEN rark(49,22); 

END LOCP; 

CLOSE(fyle) ; 

END IF; 
ENT view table; 


FUNCTION required_print(changed item: 300LEAN 
aeTY : BOOLEAN IS 
BEGIN 
ipencwmoneis(draft) OR actica is(verify) Gz 
(action _is(print) ANI chenge@ item) TEEN 
RETURN TRUE; 
EL © 
RITURN FALS#; 
ENI IF; 
Meemreduirea print; 
PROCELUFE draft_aid(data_set: IN STRING} TS 
Pome rrintio; --put vrinter 
USE io}; --Open,CLOSE,GET LINE,END OF FILE 


peecmovices Drinted formats HOR wne wa Soc cance 
Boeeotecralt ting a unitrerp 


BEGIN 

OUteeetater(aull ete 
Ceermere, DRART TXT ,Read Cnly); 
LOCP 

file tuffer := GET LINE(fyle); 

Pieeslemuyrten = data set THEN 

PUbeerinter( ***¥=e § § File buffer & . 
- DATA SET INFORMATION sR); 


Peo 
Mere burfer := CET _Ithsifyle); 
meer when file buffer = . ; -- delimreter 
Pommecimter(file btur’er); -= printline 


END LOC?; 
mipeeorrnter(null string); 
Eeueprinter(nuil string); 
Eut_crinter(null string); 
a0T 


esi 
--keep searching for cata set until end 


EXIT WEEN ENI OF FILE(¢yle); 
chon Te; 


ie 





ENZ LOOP; 
CLOSE(fyle); 
END draft aid; 


BEGIN 
ees es he See ne 
a_mark := A 3 x_mark := "Xj n mark := "N'; 
ice ee > A oMark s= Dy; rimreark := R ; 
blank := mecacnss= = » Star 3;= * ; 
null_string := "3 —- nO cNaracters 


Bieankin := 


dashin := “---------------------------------------- 


END urglotal; 


ae 





Meee AGS urutil IS 


pas package provides utility routines to be used 
Somme constructing a UNITRIP 


PROCETURE verify _number(number of digits: IN INTEGER; 
temp: IAN OUT STRING; 
success: OUT 3COLEAN; 
number: QUT INTEGER); 
SeeeelncoeOROcedure converts a string of numerical 
-- characters to an integer or returns an error i? 
-- any cherecter in the string is not °2°-'9%. 


PROCEIURE verify dta(dtg: IN CUT STRING; 
success: CUT EQOOLEAN); 
=eeomnor checks date-tive groups. 


FROCETDUR? verify_lat_long(lat_long: IN OUT STRING; 
success: OUT ECCLEAN) ; 
pemomrorecnecks lat/long position reports 


SUNCTICN checksur(terp: STRING) RETURN INTEGER; 
-- performs checksums on string temp 


FUNCTION zero pad(number of digits: INTEGER; 
terp: STRING) RETURN STRING; 
pummeeccmea String which represents a nurber 
=—=mpeeni zeros to fill out the field of digits 


FUNCTION getxy digits(x,y,number of digits: INTEGER) 
RETURN STRING; 
Sewer ner Of Gigits at xX,¥ and error checks 


mexyl urutil; 
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Weer striip, —-- JANUS/ATA Libraries 
@o2S10, 
urglobdal; 
meoKAGS ECLY urutil IS 
USE consiles 
USE urglcbal; 
-- this peckage provides utility routines to be used 
econ suructiae a UNITREP 


FROCSDURE verify_number(number of digits: IN INTEGER; 
terp: IN OUT STRING; 
success: QUT 30COLEAN; 
number: CUT INTEGER) IS 
eect reih, -- Length,str_to_Int 

ities mo mace OUre sCOnVErtsS @ Sting of Aurerical 

== @Naerdcters to an integer cr returns an error er 

soomevecnKaracter in the string is not “g°-"9" 

“-- ‘argest valid entry is S27é7. 


A SS LO ea 


aces 
rp)= @ THEN -- check for no input 
A 
FLGE -- check for ascii “8° -’9’ 
temp := zere_pad(nurber of _digits,temp); 
Bee nN tsenumber of digits LOOP 
CASE terp(i) IS 
WEEN ° “ => temp(i) := “°@°; 
WEEN “9° ..°S° => NULL; 
WEEN OTESRS => success := FALSE; 
END CASE; 
SNL LOCE; 
FAD IF; 
Il success TEEN 
mumeer := Str to Int(temp); 
ao rance Cacck 
TI? number NCT IN Ceram ber. of digits } - 1 TEEN 
success := FALSE; 
FND IF; 
Eiou 
nurber := @; 
END IF; 
ever AUN Cer; 





FUNCTION checksumiterp: STEING) RETURN INTEGER IS 
USE strlibd; Saexirect,otr te Int,Length 
BEGIN 


nurter s= @;3 
FOR 1 IN 1..Lengtnf{temr) LOCF 
number := number + 
Semen Moa rdet( temp,i,1)); 
IF number >= 14 THEN 
nurber 3:= number ~ 19; 
ENT IF; 
Ae 1 COP; 
PETURN number; 
ENI checksur; 


PROCEDURE verify _dtgidtg: IN CUT STRING; 
evccess: OUT BCCLIAN) IS 
USE strilib; ~-Length ,#xtract 
meeormereGnecks Gate-tire groups. 
suc: ECOLEAN; 
terp: ee. 
omen 5) 5 
C2Ureooume rar, viure:s INGEGER; 


SEGIN 
Svececs. c= TRUE; 


memcOeC efor Incomplete string 
lenebememn(cte) /= i2) THEN 
Success := FALSE; 


oe 


-~—~mraneecneck date 1 =- $1 
meme: = setraictidte,1,2); 
verify _numoer(2,temp,suc ,dnum)3 
It ( NOT suc OR (dnum < 1) OR (dnur > 31)) 
TFEN success := FALSE; ENT IF; 


Zecmoecheck hour 2g - 
terp := Extract(dtg,2,2) 
verify _rurter(2,temp,suc,haum); 

Paar suc OR (hnum <94) OR (hnur > 23) ) 

TPEN success := FALSE; END IF; 


2g 
® 
’ 


~—smrame2echeckr Minute 2g - £9 


tem extract (dtg,Ss2de 

verify numrer(2,terp.suc,maur); 

IF (NOT cuc OR (rnum < @) OR (mnur D &9)) 
THEN success := FALSE; END IF; 


-- check for Z seperator 
emer = Geouract id tewutwul) } 


ie 





mene /- 2 ) THEN ate(7) <= °2°3 ENT If; 


== rangecheck month 
mon := Extract (dtg,8,3); 


IF NCT ( (ron= JAN.) OR (men= FRB’) OR (ron= MAR’) 
OR (ron= APR’) OR (ron=""ay') OR (mron="JUN") 
OR (ron= JUL ) OR (men= AUG) OR ‘mon="SP ) 
CR (ron= OCT ) OR (ron= NCV') OR (ron= DSC’) ) 
THEN success := FALSE; END IF; 
-- rangécneck year §&2 - S9 
Teno] Metract(dtg,11,2); 
verify _number(2,temp,suc,yzum)3 
[Pete tesuc C2 (num < 22) OF (yuur > $9)) 
TEEN success := FALSE; ENE IF; 
END IF; 
TI? NCT success 
MePieeNULE;-= range error - fall thorecugh 
Boo souner —OnNco4 Ss "Ted Fed 
seme ecr fOr cCOmbinaticnal errors 
EISIF ( (ron = FEE’) ANE 
( (dnum > 22) OR 
fmeonim = 2S ieAND (vl nad ¢ /= @) ) } } 
Peene success := FADSE; 
FLSIF (((mon= NOV.) CR (ron= APR) OR 
(@Pon—] JUN ) OR (mon= S2P }) ANT (daur > 22) ) 


TEEN success := FALS#; 
SND OIF; 


IF NOT success THEN 
error(1); : 
@te := ddhhmrZvyrryy ; 
END If; 
END verify _cte; 


PROCIDUPE verify_lat_long(lat_long: IN OUT STRING; 
success: OUT 300LFAN) IS 
Peect oti, -—-benet a, extract ,otr_to_Int,Char to_str 
== error checks lat/long positions 


suc: 2CCLEAN; 
terp: STRTRC; 
PoumeG@ireresratsTing,lone deg,long ria, 
meaceenecs, [One check: [NIZGER; 
BSC IN 
success := TRUE; 


dae 





IF Length(lat_long) /= 14 TREN 


SUE ISS 
ELSE 


foe YALSH, 


—"Mereckt Latitude 


tenc := 


verify numrber(2,temp,suc 
IF ( (NOT suc) CR (lat deg iGo tee 
success := 


Wenc eH 


Extract(lat mlose. 1,2); 
»lat deg); 
:= FALSE; ENI IF; 
Hxieoect lat loue,6o,2) ; 


verify_nurrer(2,temp,suc,lat min); 


IF ( 


lat_lone( 


Tem cess > 


(NOT suc) OR 
success := 
IF lat_long(5) /= 
success 


(lat rin NOT IN @.. 
FALSE; ENED IF; 
“N° AND lat _long(§) 
FALSE; ENI IF; 


mins "= "3 


-= ¢neck longitude 
Pannect (hat alana, 2,5) 


verify nurber(2,terp,suc,longe aeg); 


IF ( (NOT suc) OR 
evecess := 


KAD IF; 
Meni a= 


IF { 


Success <> 


PE St? ; 


IF lat_long(1i3) /= 
success 


END IF; 
WNIT TF; 


aes, 


IF ( 


(Str_to_Int(Extrect(lat_long,8, 
euccess := 


ENT IF; 


temp 


(tr to int{extract(let 1028, 1,4)) 


(long deg NCT IN 2. 
FALSE; 


we). 


Mac et (lat Jong, li je), 
verify _number(2 
(NOT suc) OR (long min NOT IN @. 


,temp,suc,long min); 
oS) 3 
FALSE; 


aN hetolons ts jay = oe Tre 
s= WALSS; 


success THEN 


——GrecnsS GePp Tees 00 ees 


at 
FALSE} 


~~ letitude checksum 
Meardet (lat lone,é,1)3 


verify _rumber(1,terp,suc,lat_ check) ; 


1 GN Oe 


suc) OR ELSE 


lat_check /= checksum(ixtract(lat_long,1,4)) TEEN 


eee ss «= 


END eee; 


terre 


FALSE; 


-- longitude checxsumr 


s= Extract{lat_long,14,1); 


SO nurber(i,temrp, suc,long_ cneéck); 


Ii (NOT 


suc) OR ELS: 


ee 





long_check /= checksum(Extract(lat_long,@,5)) THEN 
success := FALSE; 
END IF; 
GUNT IF; 


IF NOT success THEN 


error(18); -- invalid lat _long position 
lat_long := “ddrmrDC-dddrrc[c 
ENI IF; 


Biee verity lat long; 


FUNCTICN zero_pad(nurber of digits: INTEGER; 
temp: STRING) RETUEN STRING IS 
USE strlib} -- Length 
BEGIN 
buffer := tern; 
WilEe Length{ buffer) < number_of_ digits LCOP 
eum@er >= 2 §& buffer; 
ENE LCOP; 
RETURN buffer; 
FND z2é€ro_pad; 


FUNCTION getxy digits(x,y,number of digits: INTEGER) 
RETURNS Pali NG gs 
USE strlibd; SeUnd CamGCmoier json C ties. Ll 
kev: CHARACTER; 
Burfer: SEARING; 
success: 3COLEAN; 
number: INTEGER; 
EEGIN 
LOOF 
getxy_immediate(x,y,key); 
iesey = no input THEN 
Ee er :— Null sting; 
EXIT; 
Bese 
meer s= Char to Strikey); 
Mey IN 1. .nember of digits-1 LOOP 
getxy_immediate(x+i,y,key); 
EXIT WHEN key = no _input3 
buffer := buffer & Char_to Str( key); 
Hie LECP; 
=~ strip trailing tlanks 
BOR i WM REVERSE -Lengta(ovrter) LOOP 
ReITWWAEN buffer(i) /= ~ °; 


Meobaerer({i) = "TEEN 
Buffer := Extract(burfer,1,i-1); 
FNCD IF; 
END LOOP; 


iat rer /= null strimge THEN 


Lele 





verify_number(number of digits, 
tuffer,success ,number); 
EXIT WHEN success; 
error(1S); -- invalid number 
ELSE 
EXIT; —— ener dull string 
END IF; 
ENT IF; 
ENIT LCOP; 
RETURN buffer; 
VND getxy_digits,; 


ENI wrutil; 


b- 
CD 
Cn 





PACKAGE urtest Is 
pee revyarces fOr gatheriag testing data of the ROS 
-— UNITREF system 


mest Pile: Ms; 


4 


ou 


POCHTUR 


bel 


cpen initial test(serial: IN STRING); 


’ ee 
te 
to 


ROCEDUE 5 wm intermediate test 


ae 
t4 
oO 
a Ky 
wD 
ibe 
ce 
(BD 
wn 
ct 


a 


tH 
tJ 
ct 
ta 
Q 


ROC OS] (est; -- intermediate test 
ROCE 


“ 


LOR 


CT) 
t-- 
Cc 
wt 
Ww 
% 
'~ 
sy 
n 
—— 


Pe Ge Sic, 


FNI urtest 





Sveleworstriib, == SNUeea LAS npraries 
consio; 
meeeAaGE SCLY urtest IS 
Mor consio; 
poenomraes 1O0r Pathering tasting deta ofthe ROS 
Botner system. Lest file TESTXXX results on 2B: 
-~ cisk 


test _ number: INTEGER; 

testee name: STRING (32); 

meart timre,stop time: STRING(1z2); 
sorrent: STRING; 


PROCEDURE open initial test(serial: IN STRING) IS 


USE io; SSmOoMe; Chose De tele, Create 
Womestrlib; Samia b Olt Lr 

filename: STRING(14); 

BEGIN 


—— get the test numter 
Open(test file, TEST@@@ ,Readi Caly); 
Gmmetest file, test number); 
Gleckitest file); 
—- increment the test nurter & store 
tosuenumoer <= Lest number + 1; 
[TELETE( TESTHS )5 
Create(test_file, TEST@g2 ,¥rite_Caly); 
Open(test_file, “PEST 22a" »write Only); 
PUT(test file, test_nurber); 
CLOSE{test file); 
-— open the file for THIS TEST data 
f{ienare == 2:TFST §& Int to Str(test_naumrber); 
TELITE( filename); 
Create(test file,filenare,write_ (nly) ; 
==# shoule check disk full & full directory 
Cpen(test file,filename.Write Only); 
oe, LeSt mas x 
gucee screen ; . 
nutzy (2,3, "ROS UNITREP TEST INFORMATION ); 
putxy(Z,€, : 
eerie) Wane: —-—-—— >> = — )3 
DUE aie, . 
“ENTER Start Time (Local - ex. 19D2Ce2 1€30) ); 
putxy (26,11, daMMMyy hhmm ); 
~eeet screen deta 
etme CC, testee Namre,,20); 
52 pale SeldaeeehATt timegd2,); 
Re wes terile, filenare ‘ 
& test data on UNITREP serial & serial); 
NEW_LINE(test_file) ; 
PUT(test_ file, Drafter: & testee_name); 
NEW _LINE(test_file); 


BS 





Pometest file, Start Time: “& start_time); 
NEW_LINE(test_file); NEW_LINE(test_filie); 
PUT(test_file, --------- EPRORS RAISED ~--------- =; 
NEW LINE (test file); 
=~soeucrs will be Supplied from FROCEKDURE error in 
-- fackage urglobal 
ENT open _iaitial test; 


PROCETURE open_test IS 
USE io; = ~fODe.OLOsF UN LETTE ,Criegme 
USE strlib; mo ee tO Lt 
tenoernreactate test data 
filenere: STRING(14); 
EEGIN 
merece test aur ber 
Open(test file, TESTQ@O ,Read Only); 
emtcuvest file, test number); 
CLOSE(test file); 
-- increment the test numoer & store 
Pooeumeer s= Lest numter + 1; 
[ELETE( TESTOGO ); F 
Create(test_file, TEST@@@ ,Write Only); 
Cpen(test file, TIST@2G Write _Cnly)3 
PUT(test file,test “number )} 
TOBGSR(LESt_ file); 
== Oe 7 tae file for IEIS TEST data 
filename := Woo teer Cla tGOnctr @te= her umber | 
te ei etame); 
Create(test file,Zilename,write Cnly); 
Somcmeurdncoaeck disk full & full directory 
Open(test file,filenare,wWrite_Caly); 
ENT oven_test; 


BmOCeLURE close test [5 
US# io; ee LOS b 
=— intermediate test data 
BEGIN 
CLOS#(test_ file); 
DEC cce LEST; 


PROCEDURE close final _ test IS 
Uo 10; = ee HOO 
BEGIN 
Temveuecrese Lest screen 
Giaeariscree |, ; 
putxy(@,Z, ROS -UNITREP TEST INFORMATION ); 
putxy(@,€, 7 
ENTER Stop Tire (Local - ex. 1SDEC82 1238; ); 

Pim Zo~S, achtMyy hhmm ); : 
outxy(Z@,1¢, COMMENTS (8 lines max) ); 


hie @ 





poem. ,castop tine,12); — 
PU test file, Stop Time: & stop time); 
NEW_LINE(test_file); 
PUT(test_ file, ***¥** COMMENTS ARR” )5 
NEW LINE(test_file)}; 
-- test comment mask 
FOR y IN 11..19 LOOP 
FOR x IN @..79 LOOP 
EUEMON X,Y, - 13 
ZNI LOCP; 
ENT LCOP; 
moe tN 11..1S LOOP 
getxy(2,y,comment ,8@)3 
EXIT WEEN comment = ; 
FUT(test_file,comment); NEW_LINE(test file); 
ENI LOOP; 
CLOSE(test_ file); 
Piuecuose final test; 


ENI urtest; 


Perr 





PACKAGE urglbl [5S 
mameomeains Structure of the comment _set used in 
—— preraration of AMPN/RM<ZS 


—- max number of comment lines for ampn set 
fax comment: CONSTANT := 18; 


-- for message line 6S - (AMFN/ or PIPKS/) & // = EZ 
max line length: CONSTANT := €2; 


Teer Corrent set [5 


RECORL 
change: FOOLEAN; 
Domeecrmmor Lines: INTEGER; -- constrain 1..max_corment 


BNI RECCED; 


ENT uregletls 


Tec 





wile unktcalA; 
PACKAGE wnitrersA IS 
USi urloca@la; 


~=- The basic unitrep data set and variable 
~eeor ddtesstructure A, LCCAL information 


TYPE wRitrep set IS 
ReCORL 


Ls ered) 
NT SECORD; 


rt 


ENT vnitrera;s 


Pee 





PATE urgltl; =o COMMENT set 
PACKAGE urlocala iS 
JSE urgltl; 
-- This package proviies the data set definition 
== for the LOCAL data used in UNITREP construction 


~- genéral local information 
PieeessGawus set Is 
RECORT 
transmitted: PCOLEAN: 
Mecteserial: STRING(S); 
feeder report: JOOLZAN; 
Moet id: STRING(S@); 
Gui reit serial: STRING(2); 
amen: comment set; -- for MSCID/UNITID sets 
ENT RECORD; 


TYPE class IS (unclas,conficential,secret,top secret}; 
TYPE prec IS (routine,priority, immediate,flasa)} 
Cl rRemessaze set {iS 
ReCCRI 
BPreGeeeice: prec; 
dtg: STRING(i2); 
originator address: STRING(SQ); 
classification: class; 
@eciassificetion: SPRING. E1); 
ENT ReCORD; 


ieeeomeration set IS 
ReceeL 
underway: BCCLEAN; 
codeword: STRING (32); 
plan_org number: STRING (23)3 
ENIT RECORD; 


Die wekxercisce set IS 
RGEC ORL 
uncerway: RBCOLLAN; 
nickname: STRING (€2 
END RECORD; 


Pieieecorbion set I5 

Fee Ore 
change: 300LEAN; 
bat _ long: BOOLEAN; 
rresent_ location: STRING (29); 
dta: STRING(1zZ); 
arrad. comment sev; 

UNIT RECORD; 





~-raximrum # of remarks feges, 18 iines/page 
max rmks pages: CONSTANT ;:= 1¢; 
TYPE remarks _ set IS 
AwBECRI 
change: ECOLFAN; 
nurter of peges: INTEGER; 
=~ COnStrain gd. Mex ems pages 
page: ARRAY(1..mrax_rmks pages) OF corrent_set; 
ENT RECORT; 


ieeatocal set IS 

Panic Oren 
change: BOOLEAN; 
Status: status. set; 
message: ressage set; 
Stenmavion’s Operation set; 
exercise: exercise set; 
posite ons POSItion set; 
remarks: remarks set; 

ENT RECORD; 


ENT urlocala; 





feere pracmin3 ,urair3; 
PACKAGE unitrersé IS 
USE uradrinB,urairsB; 


--~ The basic unitrep data set and variable 
Somer Gauca Structume 2 —- AIR end ADMIN 


fiPeh unitrem set IS 
RECORT 
ac: damin set; 
Smeeair set; 
END RECORD; 


WiewViaeehe Dp Sets 


END unitrere 





WITH urglbdl; 2a ror eCOmrent “Set 
PACKAGE uradmrink IS 
USE uregltl; 


-- This package provides AIMINISTRATIVE data set 
-~ declarations for UNITREP construction 


~~ admin TYPE declarations 
YP phys_status IS (onboard,departed); 


J 


tJ 


Yew rerp.otg Is 
(cno,cincpacflt,cinclantflt,cincusnaveur) ; 


TYPE verification IS (valid,corrected); 


TYPE command set IS 
me CORD 
change: ECCLEAN; 
cooic: STRING(32); 
dtg: STRING(12); 
afrpn: comment set; 
END RECORTI; 


TYPZ activ_set IS° 
RECCRD 
change: 300LEAN; 
activity_code: STRING(2); 
amon. comrent sets; 
END RECORD; 


Pivaemmedrc SEt [5 
RECORD 
change: 2OOLEAN; 
Status: phys status; 
aap cOrmrent Set; 
END RECORD; 


Pyeserep crg set IS 
RECCRI 
change: BOOLEAN; 
Mewerep Org: 1_rep_oreg; 
dtg@: STRING(12); 
amen: comment set; 
END RECORD; 





iieeeerify set IS 
RECCED 
change: BOCLFAN; 
feedback ver: verification; 
arpns comment set; 
END RECORD; 


TYP! adriana set IS 

RECCRD 
change: ECCLEAN; 
command: command set; 
el v: dctiy Set; 
medic: redic set; 
Hemones Tep Org set; 
verify: verify_set; 

ENT RECCPD; 


ENT uradmin3; 


194 





WITE urelbl; Sameer COMMeNnt.set 
PACKAGE urairb Is 
USF u¥ ati; 


weecava Sturscture definition for AIR Situation 
-- of a UNITREP 


mame pDecon: CCNSTANT := 11; -- set by OFNAVINST 3503.5 
HYPE recon_set IS 
RECORT 
change: 30CLEAN;: 
delete: BOCLEAN: 
numter of capetilities: INTEGER; 
capability: APRAY(1..mwazx_ recon) OF STRING({8); 
amepa. comrent set; 
END RECCPD; 


PYPE crewstat set 1S 
RECORTL 
change: ECOIZAN; 
delete: 300LEAS; 
formed: STRING({2); 
ready: STRING(2); 
ampn: comment set; 
END RECCRD; 


airstat set IS 


change: FUOLEAN; 

delete: ECCLEAN: 

possessed: STRING(2); 

fre: STRING (2); 

prc: STRING(2); 

nrc: strine(Z);: 

SOP ieemcOrmrent Set; 
ENT RECCEY; 


SYPE dispersed aircraft [5S 

RFCORT 
change: BOOLSAN; 
delete: BOCIEAN; 
iss: STRING(3Q); 
airetat: airstat set; 
crewstat: crewstat_set; 
recon: recon set; 

Peek teOn T ; 





TYPE authorization set IS 
REC CRE 
change: 300LEAN; 
celete: BOOLEAN; 
iss: STRING (2); 
arpn: comment set; 
END RECCROD; 


eecmocations: CONSTANT := 5; -- 20S design decision 
Mir iWaircraft tyre set IS 
nh PiGer L 


change: ECCIFAN; 

celete: 300LEAN; 

iss: STRING(7); 

ac_auth: euthorization set; 

Geewerauth: authorization set; 

numter of locations: INTEGER; 

location: ARRAY (1..rax_locations) OF 

OME Io ie (Sol slau Jel eishe 1 

END RECCRD; 


fomemece types: CONSTANT := S; -- ROS cesign decision 
Mirek air set IS 
RECORD 


change: FOOLEAN; 

numtér of_ac_types: INTEGER: 

ac_type: ARRAY (1..max_ac_tyztes) OF aircraft _type_set; 
ENDL HECCEDL; 


myo urairs; 





WITH io,util,chainlib,strlib, -- JANUS/ADTA libraries 
come vo, printio, 


filerA, 
ureroual,urutil, 
--# urtest, 
unitrepé, 
urlocalAa; 
PACKAGE EFOLY unitrep IS 
wok 10, -~- Cpen,CLOSE,Create,lTFIITS 


CiaentiD, =—- simple Chain 
Comesio, printio, 
filerA, 
teeloral,urutil, 
--# Mies l, 
unitrepA, 
urlocalA; 


PRCCEDURE check required files IS 
-- checks to make sure all neccessary #iies 
-- aré present 
EEGIN 
-- program status 
IF NOT valid file( STATUS ) THEN 
terminate(file_ error, STATUS ); END IF; 
-- the data structure 
IF NOT valid file( ‘UN ITSZO2 » TEE 
terminate(file error, UNIT@eo ¥ pees 
-- serial/dtg Cho ser et 
IF NCT valid file( CROSSREF ) TEAN 
terminate(file error, CROSSREF }; END IF; 
al addressees 
IF NOT velid_file( ACTION ) THEN 
terrinate(file_ SEO, GON. 5. ENDS ir: 
IF NCT valid_file("IN#0") TEEN 
terminate(file error, INFO); ENI IF; 
meen oOtemes sas cs 
IF NCT valid file( ERRMSG ) THEN 
terminate(file error, ERRMSG ); END IF; 
= help text 
IF NCT valid file(” HELP.TXT ) TREN 
terminate(file_ OREO rs, “AFLP DF Mie Es 
IF NOT valid _file( “DRAFT. Tee TEEN 
terrinate(file_error, DRAFT.TXT ); END IF; 
ero info - remove from procuction 
-—# IF NOT valia file( ‘TESTOCO > TEEN 
——# terminate(file_ error, TESTS9@ ); ENT IF; 
al reference tables 
If WOT walid fale ( “TABLE. 3-2°) T2 
terminate(file Serer, seni. 
IF NOT valicé _file( Tee Lbe. 3S-< ) TE 





terminate (file _error, TABLE.3-3°'); END IF; 

IF NOT valid file( TAL Ue —E€ ) TEEN 

terminate(file error, TABLE.B-6€"); END 17; 

--module ior urlocal 

IF NCT valid file( ‘UNITREP1. CoM’ ) THAN 

terminate(file errer, UNITREF1.CCM ); END IF; 
-- rodule for surdir and uradmin 

IF NOT valid file(™ UNITREPC. COM’ ) THEN 
terminate(file erro, UNITREF2. CCM ); END IF; 

IF NCT valid file(’ UNITREPS. COM Je Tas = N | 

: terrinate(file error, UNITREP3.CCM ); END IF; 
ENT check required files; 


PROCEDURE signon IS 
EFGIN 

perder; 

putxy(@,3, ; 
"SIGN ON - ROS UNITREP SYSTEM —- VERSION 1.1 - JAN 83 )3 

putuy (2.9, . 

The Current Workfile is UNITREE Serial --- ."); 
putxy(cS,5,u.1l.status.current serial); 

TF u.l.status.transmitted THEN 2 
putxy(@,&, It HAS been logged as transritted: DTG }; 
putxy(39,8,u.l.message. ete) ; 

FLSE . 4 
putxy(@,8, It HAS NOT been logged as transmitted. }; 

END IF; 

Pilea , - 

CANigeemopo continue, ENTER <?> for HELP informetion: }; 


LOOP 
getxy_immrediate(€3,20,key); 
CASE key IS 


WHEN no_inputj;space => EXIT; 
civ cues =- 
help( SIGN ON ); EXIT; 
WHEN OTHERS => error(€); -=—sjeeorréct indput 
ENT CASE; 
Pike bOC rs 
END signon; 


PROCEDURE choose action(action_is: CUT action_state) IS 
-- selects one of the erecutadle RCS UNITREP 


~~ actions 


PROCEDURE initialize_action IS 
BEGIN 
Hemet if action RANGE draft..quit LOOP 
action_is(i) := FALSE; 
ENI LOCP; 
POL itbelize acttior; 


1Sé 





PROCELTURE actionmask IS 
== JGnews the ection screen 
BEGIN 
border; 
putxy(68,1, SFRIAL “& u.l.status.current_serial); 
mus (2,5, “ACTION MENU); 
putxy (19,5, -1- Puepane URIIREP brat t Tocurent ); 
putxy(19,6, -2- Initiate New UNITREP"’); 
putxy (19,7, 
-2z— Remove/Modify/add Tata to Pending UNITREP. ); 
mary S,e2, —4—- Print Heaps’. Format Hard Copy & 
“of Pending UNITREF ); 
Pumny (19,c, 
meme oe Tending UNITREP as Transmitted ses 
puveyio, 10, -e—- Erase Pending UNITREP ); 
putxy(19,11, -?- Prepare Verification Summary )3 
rutxy (19,12, cae eit; " 
putzy(19,14, ENTER the desired action: )}; 
cue, (2,15 ,dashin); 
ENT actionmask; 


Mmeciredeac,ion: CEARACT &R ; 


BEGIN 
LCCF 
Piiiwecdieiwe act ton: 
actionmask; 
getxy immeciate(45,14,desired actioa); 
Chomecescd red acticn 1S 
WEEN “1 => action is(draft) := TRUE; 


EXIT; 

WHEN “2° => action is(neww) := TRUE; 
EXIT; 

WHEN °3° => action_is(mrodify) := TRUE; 
EXIT; 

WEEN “4° => action _is(rrint) := TRUE; 
EXIT; 

Mien ©) «OC => action _is({log) := TRUE; 
EXIT; 

WEEN “G€° => action _is(erase) := TRUE; 
EXIT; 

WEEN °7° => action_is(verify) := TRUE; 
EXIT; 

WEEN “8° => action is(auit) := TRUE; 
EXIT; 

WEEN OTHERS => error(€); -- imeorrect input 

ONT CHSE; 
PNT LTCCP; 


oN ‘crrecge action: 





PHOCETURE precess action(action_is: IN OUT action state; 
Success: CUT FOCLFAN) IS 


ot Somes t Pit b; 
oa weer omms required file actions to comply 
me G20 waction is 


filenere: STQING(14);3 
Sertale® STRIAG(3); 
ate: Sirewe (12); 


BEGIN P . 
Pee atti le s= NITE? ; 
iy action is(draft) THEN 
Peevcime.l.status.transmr@tted THEN 
putxy(@,1€, The Current Yorkfile has not been " & 
“transmitted. Domyou wait 2. .° )%5 
pies ,ier, ( ) Drafe of the Current Workfile }; 
putxy(5,16&, 
“( ) Traft of the last submitted UNITREP ); 
cutxy(21,28, ENTER <X> as recuired ); 
Piii@enk (6,17) THEN -- use current UNITREP data 
success := TRUE; 
ELSIF mark(6,18) THEN 
—— get last submitted UNITREP data 
filename := B:UNIT & u.l.status.last_ serial; 
If valid _file(filename) TFEN 
Reeeeiuawooktiile := Tilenare; 
success := TRUE; 
PLSf ee a id ee 
error (2); 
success <= FALSE; 


EN? IF; 
Z2USE -- this action was not desired 
success := FALSE; 
END IF; 
agen ~~ use current UNITREP data 
suceceats := TRIE; 
END IF; 
I? scuecess THEN 
line count := 1; = teen PCa 


set format(text); 
putxy(@,28,dlank1l2); . 
putxy(@,22, Select Areas for Draft Document, & 
“Ready printer & <ENTER> ); 
getxy immediate(&S, 22 ,xey)3 
END IF; 


ELSIF action is(neww) THN 
IF NOT u.l.Status.transmitted TEEN 
error(7); 
~-—"eurrent not’ vransfitted, modify or erese 


co 





success := FALSE; 
eho. 

success ?3= TRUE; 
ENT IF; 


ELSIF action _is(mrodify) TEEN 
IF u.l.status.transmitted THEN 


error(s); --current transmitted, initiate new 
success := FALSE; 

elo 
euccess := TRUE; 

END IF; 


ELSIF action _is(print) TEEN 
putxy(2,16, To You want a message format hard ” 6 
“COpy Of 225 03 
putzy(8,17, ( ) Pending UNITREP’ ); . 
putxy(&, fe, 7 ( oc UNI Bim: serial, ——— sor & 
dtg: ddhhmmZmMymyy Ns 
Burry 7,22, "ENTER <X> and data as required. )3 
IF rark($,17) THEN == Wse currenis UN?TREer deta 
success := TRU; 
ELSIF rark(9,18) THIN 
——seomond UNITREP data. get serial or dte 
mete, 16,serial,3}; 
[Fk serial = null string TEEN -- get dte 
LOOP 
getxy(46,1&,date,12 
verify dte(dtg, success) } 
EXIT WHEN success; 
piteny (26,18 ,dte); 
END LOOP; | ; 
Open(fyle, CROSSREF ,Read Cnly); 
LOCP 
Daerer <= SET LINE(E 
IF Biact (tutti: é 
[eed ue Matche W 7s. 
GECSE(Tyle);_ . 
euilename  := S2URTT 6 extract iburfer,1,3); 
IF valid _file(filenare) THEN 
PeOerditnwormi dle <= fi became; 
SMeeess f= LAUe,; 
EXIT; 
BLS 2 =[sruvaldaetiis 
error(c); 
success := FALSE; 
END IF; 
Misa Fr ENT OF FILECigle ) caePN 
CLOSE(fyle); 
error(S); -- dtg doesn’t cross to ea serial 
success := FALSE; 


eeu: 


fy le 
Lee de TR 
2 


OY 


if 


ND 
Q2 
a 





EXIT; 


ELSE 
NULL; -seeeusatormmer line from CEOSSEEF 
END IF; 
END ICCP; 
ELSE saeuoe 10cut, serial 


filename := “B:UNIT & serial}; 
IF valid file(filename) TEEN 
load _file(filename); 
program.workfile := filename} 
success := TRUE; 
ELSE 
error(2); —-- invalid file 
success := FALSE; 
Be 2h 
END IF; 
Pio! == NOt the desimed action 
euccess := FALSE; 
END IF; 
-- pick message forrTat 
IF success THEN 
PORetorN 16..22 LOOP 
putxy(@,i,blankln); 
END LOOP; : 
putxy(¢,1€, TC you want the message in... ); 
pmeerce,i¢, ( ) OCR format ); . 
Buys 1S, ~ ) Standerd Naval Message format ); 
putxy (27, 20, ENTER <X>'); 
LCOP 
IF mark(¢$,17) THEN 
set format(ocr); EXIT; 
ELSIF mark(9,18) TEIN 
Sete ormat(rse); BX iT; 


ELSE 
error(€); -- choose one 
EN? IF; 
END Cor, 
eae count := 1; == nS Geen t0 


i 


cputxy(20,20, Ready vrinter and <ENTER> j; 
getxy immediate(44, 29,xey); 
END IF; 


ELSIF action _is(log) THEN 
iF o.Vestatus.transmitted TEN 
error(1@); 
-- cannot log an alreacy transmitted UNITREP 
success := FALS2; 


PSs . 
pasxry6216, “ENTER Lhe tasmittal cte: § 
“adhhmmZMMMyy )3 
LOCP 


nN 
SQ 
NY 





getxy(27,1€,u.l.message.dtg,12); 

verify ctg(u.l.message.dtg,success)} 

EXIT WHEN success; 

putxy(27,1€,u.l.ressage.dta); 
ENI LOOP; 
u.l.status.transmitted := TRUE; 
u.l.status.last_serial := u.l.Status.current serial; 
filenare := “B:UNIT'S u.l.status -current_seérial; 
prograr.workfile := filename; 
Stcmemtateq@iilename); —- completed data file 
store file( UNIT@Q@"); -- workfile 
--* should incorporate disk full, 
=—* full directory checks 


==) tne insert dtge block is neccessary due to the 
~~ lack of random access read/write procedures in 
S—meeiue ALA. Greatly simplified in full ADA 
insert dte: PECLAR? 
meee 11st; 
Mmeeweiink IS ACCESS list; 
Deere list IS 
RECORT 
serial dtg: STRING(16); 
next: link; 
ENI RECORD; 
mone rirst, is Link; 


EEFGIN 
firmer f= NEW Lists; 
-- initialize - not reauired in full AlA 
meesteserici dtg := u.l .status.current_ serial & 
Ce eines Ss aee. cue, 
first .next := NULL; 
Mark 3= first; . 
OCpen(fyle, CROSSRIF ,Read_Only); 
-— read out old crossre? data 
WHILE NOT ENC OF FILE(fyle) LOOP 
1 := NEW lists 
—- initialize - not required in full ATA 
l.serial dtg := GET _LINi(fyle); 
l.next := null; 
mark.next := 1; 
fark g= 1; 
EFND LCCP; 
CLOSE(fyle); 
== write in the alteredscrossre* lLw&st 
DALETE( ‘CROSSREF ); 
Create(fyle, CROSSREF ,Write_Cznly); 
Mark := first; 
WHILE mark /= NULL LCCP 
PUT (fyle,mark.serial dtz); New_Line(fyle); 
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rark := mark.next; 
END LOOP; 
CLCSE(fyle); 
pamenicas Up poOlilters 
WHILE first /= NULL LCOP 
wark s= first; 
mies t) 2= Tark. next; 
Dispose(mark); 
ENT LOOP; 
MmyDSinsert cte; 
success := TRUE; -— CELITY old AMP files on a: 
ENT IF; 


ELSIF action_is(erase) THEN 
-- if successful, erases current workfile and 
-- returns false. reselect choice for action 
Peedi .status.transmitted TEEN 
putxy(1@,1€, Confirm you wish to erase UNITREP & 
“serial & u.l.status.current serial); 
Etuxymene , 17, 
(It kas n0t been ey ie as transmitted) ); 
putxy(26,18, ENTER (Y/N): ); 
eetxy immediate(38,18,key); 
IF key = n TEEN = 00880 Erase 
success := FALSE; 
FLSIF key = y TEEN 
mmmcouaoeeit Deckup data is available 
filenare := B:UNIT & u.l.status. last serial; 
IF valid_ Pile(filename; THEN 
program.workfile := filename; 
load_file(filename) ; 
store file( ae 3 


success := TRUE =SjA0c0 “parts 
as F 
terminate(file_error, filename) ; 
END IF; 
"LSE 
et non € } ; -- incorrect input 
success := FALSE; 
END IF; 
ELS# --— file has been transmitted 
Orrio mee ) ; -- initiate new 
success := FALSE; 
ENT IF; 
ELSIF action_is(verify) THEN 
sutxy(@,1E, 
mem tire AS OF weriftoatien serial: --— dy 


putey(9,17, (088 to restert) ); 
semis 3 = getry digits(27 tea 
IF number = 2 TEEN 
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success := FALSE; = TeStdart on -vove 
FLSE ' , 
Brié€énere := B:UNIT §& serial; 
IF valid *ile(filename) TEEN 
Sucizess := TRUE; 
program.workfile := filename; 
ELSE 
Smion(c); --required file not present 
success := FALSE; 
END IF; 
ENT IF 
Tr success TEIN 
minemcount <= 1; =i pn print so 
Bet format(mse); 
putxy(@,22,blankln) ; 
sutxy (38,23, ieadverrintversand <ENTR> 
getxy_immediate(5S,28,key,); 
BRE IF; 


ELSIF ection isfauit) TEEN 
terminate(normal,null string); 


ELST. =n oO vactlLon required 
success := FALSE; 
ENI IF; 


BND precess_action; 


PROCED'YRE choose areas(area is: IN OUT area_state) IS 
--~ meny selection of the UNITREP situation 
—- aréa categories 


PROCZIURE initlalize_area [5 
BeGIN 
FOR i IN areas RANGE fers..local LOOP 
area_is(i) := FALSE; 
ENT LOCP; 
Eee iaatialize_ area; 


PROCEIURE areamask i5 
—-- draws the area screen 
EEGIN 

torder; a 

pune. CG,1, SZRIAL iS) lives atgiemeurtent serial); 

putxy (3, 5 _UNITEEP SITUATION MENU ); : 

putxy (Sys, ( ) -@- Modify Local Information ); 

peiteeo, ., ( ) -1- Fersommel Status ); | 

putxy(S,€, ( ) -2- Administrative Stetus ); 

putxy(S,S, es 
-~3- Unit Corbat Readiness Assessment ); 





puexy(9,12,_ 
putxy(¢,11, 
pees (9,12, 
putxy (9,15, 

( }) -7- Increased [efense Readiness Status )3. 
putxy(9,15, ( ) -8@- Reserve Augmentation Status ); 
putxy(§,16€, { }) -E- Type Commander Reports ); 
putry (15,26, ENTER <X> in desired report area(s)'); 

END areamask; 


( ) ~4- Aircraft and Crews Status ); 
i (eeoaeemOr EqGUipment Status ); _ 
“( ) -€- Special Capabilities Status’ )3 


BEGIN 
LOCP 
Piatralize area; 
aréamrask; 
area Ws(lecal) s= mark(12 
area is(pers) := wark(12@, 
aréa _is(admin) maine elle 
area is(combat) := mar«(1 
aréa_ is(air) := mark(13,12 
eimecomees(@0ujip) := rark(1¢@,11); 
area is(specap) := marz(12, 2)3 
area is(defense) := mark(12,13); 
area is(reserve) := mark(1@,15);3 
mEed was( tycom) s= mark(1Z, 16); 
IF eréa_is(pers) OR area_is(combat) on 
area ts(equip: OR area_is(specap) OR 
area ~is(defense) OP area “is( reserve) 
CR area_is(tycomr) TEEN 
putxy (2,22, . 
SELECTED AR 2A NOT IMPLEMENTED - CROCS E ONL: & 
"LOCAL, ADMINISTRATIVE aad7or fee ae 
getxy_immediate(78,2Z2,key); 
rLoe 
putxy (2,2@,blankla); 
eae. e 20, ; 
‘<ENTER> to continue, ENTER <X> to reselect: )3 
eee. P—emart | 44,20) ; 
EXIT WHEN NOT reselect; 
ENT IF; 
END ICOQP; 
ENT choose areas; 


mmeGiIN -—— fain tody 
bodad status; 
== @perations redauiredc by Status 
IF program.initial entry TEEN 
cheek nequimed files; 
-=# initial test date 
pe Geen initvel vest (@.1.statas.current_serial ); 
slenon; 
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Program@.initial entry := FALSE; 
FISE 
--# Oren test; “~# intermediate test data 
load ere UNITZS@ ); 
END IF 


action: LCOP 
choose action(action is); 
process action(action _is,success); 
-- required file Operations 
EXIT WEEN success; 
eee LCGE action; 


Mipacteed 1S(modify) CR action is(draft) TEEN 
choose areas(area is); 
END IF; 


pacorect program flow to next redquired module 
==# close test; 
Spore  S wast US) . 
mieny( @@,22, STANISY..... )3 
Ie action_is(log) TEIN 
mae eo 1oedal items in UNIT¢¢@ZA 
Simple_Chain( UNITREPi. COM 3 
ELSIF action _is(erase) TEEN 
-- recall/reset items in UNITO@@E. UNITSO?A reset 
meee UT OCESs acti on 
Simple Chain( UNITREP2.COM"); 
mee feoctio2 is (Print) ce action i 
Of action is(verify) C2 acti 
Simple Chain( UNITREP1.COM’);_ 
ELSIF action _is(modify) AND 
@NCT wl .change OR area _is(ileocal; }) TEEN 
=——At least @ome entry ato urlocal is 
paened ut red Bete message items 
Simple Chain(” UNITREF1.CCY 
ELSIF action is{modify) AND area _ts(adr 
Simple Chain( UNITREP2.COM 
eS TS" action pee ity) PND atmee 1Siair) TEEN 
Simple Chain( UNITREPS.COM 3; 
END I®5 
Simple Chain( UNITREP.COM )}; -- restart 
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eerie chainiid, =~ JANUS ADAMS re yy 
Gomeno,oOrintio, 
filerA, 

--# Mreeest, 
urglobal, 
urlocal; 

PRCRAGE ECLY unitrepl IS 

Boe chainlid, 
Cemero,printioc, 
fiver, 

-—# ine st, 

Wweelobpal , 
lm ocal ; 


eemrrevides processing of UNITRIP local 
Zeieormavion dnd prograr cantrol 


ErGIN 

oad Status; 

IF program.print trailer THEN 
process locel(trailer); 
peeerameprint traller := FALSE; 
stcre Satis; a 
Simple Chain(”UNITRED.CCM"); 

FLSIF action is(log) THEN 
process local (header); 
Store Meee, roeran workti12)3 
Simple_ Chain( UNITREPZ.COM 

BG er aioe Hereeeint) Ck Berio _is(verify) THEN 
process local(headcer); 
pPuoesmam.print trailer := TRUE; 
Store status; =e 2 GO i) 
Simple Chain(”  UNITREP2. COM’); 

ELS II action _is (draft) THEN 
process local(header); 
program.print trailer := TRUE; 
IF area_is(adrin) or arsa_is(air) THEN 


etore status; aa eco et 
Sire Chain(’ "UNITREPZ.COM ); 
hs 


process local(trailer); 
Pugnanieorint trailer := FALSE; 
Simrle Chain("UNITREP.COM ); 
ENT IF; 
ELSIF action _is(neww) THEN 
process local (header); 
store file( “UNIT9OO ); 
Sirple Chain( UNITREP2.COrY 3; 
ELSIF action_is(modify) TEEN 
ileal eren test; 
process local(header); 





~—-# Close test ; 7 
store file( UNIT@QO@ ); 
SvOre Status; - 
putxy (30,22, STANDB3Y..... es 
IF area_is(admin) THEN . 
Simple Chain( UNITREP2.CoM ); 
ELSIF area_is(air) TEEN 
Simple Chain( UNITREP3.COM ); 
ELSE : 
Simple Chain( UNITREP.CCM ); 
END IF; 
seme rase controlled in unitrep.com (.nkg) 
ENI IF; 
Simple Chain( UNITREF.COM ); -- restart 


END unitrepl; 





Metre chainlit, eae CANUD ADE at Uren y 
costo ,printio, 
fae nS , 
urglobtal, 
~-# urtest, 
unitrep3, 
uradrin,urair; 
PACKAGE BOLY uwnitrep2 IS 
of chainlit, 
EGmclO,orinatio, 
filers, 
weglctal, 
~<—H urtest, 
uynitrep3, 
imaamin., urairs 
mameeovices processing of UNITREF adrinistrative ane 
-—- air situation reports (excluding air modify: and 
—EEomoOerean control 


3EGIN 
Poed status; 
IF acticn_is(verify) OR action_is(print) TEEN 
Oeoee-s administrative; 
PROCess air; 
store Status). woe LOn Line CC Olen 
Simple Chain( UNITRFP1.COM’ ); == Pll tetrownes 
Piolr action is(draft) TEEN 
IF area_is(admin) TEIN 
pyoeess achinalstrative; 
END IF; 
IF area_is(air) THEN 
mmeecess air; 


ENT 18; 
Sore Status; ce for ina Ce content 
Simple Chain( “UNITREPF1.coM” == Print tratiler 


FLSIF acticn is(neww) TREN 
Pees. administrative; 
process air; 
Smee rile { UNITESO ne . 
Simple Chain( "UNITREP.COM ); -- file zeroec 
ELSIF action_is(mrodify) TEEN 
oa ot open test; 
IF area _is(admin) THEN 
process_ administrative; 


store file( UNIT@G@ ); -- save new data 
ENT IF; 
If are@@_is{air) THN 
ca close test; . 
iy OS 22, STANDBT..... ); 
i a oe Chain( UNITRIPS.COM”); =— pPrevescmac “yee 
evil If; 





--# euugicie test; at PRC et TOT production 
Piece ,2e, STANTBY..... Aes 
Sirrle Chain( UNITREP.COM ); 
ELSIF action_isilog) THEN 
Pecgeee achinistrative; 
Process air; 
store file(rrogrem.workfile); 
Simple Chain( UNITREP.CON ); 
FLSI¥ action is(erase) TREN 


store file( UNIT@9@ ); -~- previously loaded old file 
Simple Chain( UNITRFP.CCM j; 

ENT IF; 7 . 

pemprescnain( UNITREP.COM }; -=+ restart 


mNE unitrepe; 
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meee Charlit, —-= JANUSVALTA literary 
Gomslo,printio, 
urglobal, 
filers 
--# urtest, 
ied PL 
nat rept; 
PRORAGE ECLTY unitreps IS 
wo! chainlib, 
Coa 0, Drintvio, 
Uretordal., 
fYLer3s, 
--# mr best. 
Vege nr L, 
unitreps8; 
Samecmovl1aes processing of UNITREP air situation 
== reports when action is(mrodify) and prograi 
-- control to return to main module 


BEGIN 
Poad <tatus; 
--# open test; 
Process ac type; 
ao GhoOce {test : : 
store file( UNITaue ); 
Bienes, ce, STANIBY....._)3 
Simple Chain( UNITREP.COM ); 
END unitrepd; 


nN 
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PACKAGE filerA IS 


4 


mammal tile handling oterations for the “A Gata 
-- structure 


FUNCTICN valid file(filename: STRING) RETURN BOOLEAN; 
-- checks for valid external files 


TYPE reason_code IS (normal,file error); 
PROCEDURE terminate(reason: IN reason code; 
filename: IN STRING); 
mame xiee COlint for the UNITEEF prograr 


PROCEDURE load _file(filename: IN STRING); 
=- toaas a particular unitrep cata set 


PROCETURE store file(filename: IN STEING); 
-- stores a particular unitrep date set 


PROCEIURE load_status; 
~—- loads and performs operations réeauired by status 


PROCEDURE store status; 
—-- stores the status state 


ENT filera; 


nO 
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Sem tooutil.strlib. --JANUS/ADA’ 1i brary 
ComeyO, Driatio, 
pret obal, 
~<-# urtest, 
Uartrepe , 
urlocalAa; 
PACKAGE EOLY fPilerA IS 


Se “Lo% 

Poe printio:; == fOmmert oi 5 

USt urglobal; esecectLlod lSeareq 1s ,forseat 1s 
USE unitrepA; --u,data types 


Worf urlocala; 
sow mommudlerile Nandling oterations for the 
== opructure 


7 


@ Scar 


eyle: FILS 


POUNCTICN- vyalid file(filename: STRING) RETURN BOCLEAN IS 
tok fo; =—meoenCpoot, LOresult 
Pere ectmiao, ~— Extract 
=—eecepens PIL#NAME to check presence.If FILENAME 
Sonne seat, returas FALSE otherwise closes 
Vane ape returns LARUE. 
BEGIN 
—-=- A wnitrenv file 
buffer := filename; 


IF ((Extract(vuf2er,1,4) = UNIT) OP 
(Extrect(buffer,i1,4) = B:UN )) 
AND NOT 


Seoedare = _UNITREP1. oct ne 
(filenare UNITREPZ. coy. eC: 
(filenere "UNITREPZ.CCY 3 TEEN 

mre sLOwcneck —Neaquined Piles 

tuffer := buffer & A; 

OND ove 5 
Open(fyle,buffer,Read Only); 
Pere sult = 255 TERN —- *j]@ does not exist 

RETURN FALSE; 

ELS? 
ClGsa(fyle); 
RETURN TRUE; 

ENI IF3 

MNiewalia file; 


F 
2 


PROCCELURE termrinate(reason: IN reason_code; 
Filename: IN STPING) IS 
USE consio; 
USE strlib; == EMaract 
USE io,util; zee oh ee 
= USE urtest; moe S Gat | be 
[wueiicmerocecure 1S THE Exit poiat of the vrograer 


3 
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== r@eson can be either NORMAL or for FIL 
SEGIN 


a 
ic 
e®, 
‘od 
C> 
Le @. 


mam ooVve CUITEnt unitrep cata 
store file( ‘UNITOGO'); 
If reason = normal TEEN 
--# cmese final test; 
PeeresaMm-oinitial entry := TRUE; 
store status; 


Paits 
RLS? mo redson 1S file error 
Geeener >= rilenere; 
Is (Extras: t(ouffer,1,4) = "UNIT ) AND NOT 
({filenare = “UNITREPL. cOM ) OR 
(filename = "UNITEFFZ.COM) ) TEEN 
Zaecenece Tequired files 
Eieeter <= buffer & A ; 
ENDL PE; 
-- initial file atort 
--# LoeeT 1S OP EMCTE St _file) THEN 
—=—t Cren(test_ file, TES ABR’ »Yrite Only); 
-- ONT ITF; 
--# Pim ocest file, ' 
--4 ‘FILE TREPOR TERMINATICN - & filename); 
—~# NEW LINE(test_file); NEW_LIN3(test file); 
-—# Paget test file) ; 


Gives SCTeen ; 
putxy(@,3, FILE ERROR TERMINATICA’ ); 
putxy(2,£,buffer 6. is required é 
but not present on the assignec disz ); 
«(Zé 
af 9 9 
py the required file to the proper disk. ); 
3 
5 


nate; 


PROCEDURE load file(filenare: IN STRING) IS 
=—SleaeS a ™perticular unitrep data set 

BEGIN 2 
OYasceres= @=llename & A ; 
Open(fyle,tuffer,Read Only); 
Read(fyle,u); 
CECSn@ey le); 

ENT load file; 


PROCEIURE store file(filename: IN STRING) IS 
—=— Stores a particular unitrep data set 
EEGIN neue 
buffer := filename & A ; 
Pimere( burfer ); 
Create(fyle,buffer,#rite Caoly); 


N\) 
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Wate (f71e,u): 
CLOSE(fyle); 
ENT store file; 


PROCEDURE loed status IS 
-- loads and performs operations requrred pyaes ta bus 
BEGIN 
es 598205 Read 0n2y ) i 
Read(fyle, program) 
CLCSE(fyle}; 
aievicie 1s = Ereeradm. cushent action; 
aréa_ iS := progranm.curreént_eree; 
mommatodss := program. current _format; 
IF format_is(msg) TRF 
set format(msz); 
EISIF format_is(ocr) THEN 
set_format(ocr)} 


Dice. =—~mienmat LS tort 
set format(text); 

ENT IF; 
eeemcount := program. printing liane; 
iGerac tilon _is(1eg) TEEN 

lead file /UNITGGB" }; 
RLS} 

load _file(program.workxfile); 
ENT IF; 


FNT load status; 


mHOCMDURE store status IS 
pamsvores the status state 
BEGIN ; 
pam SCC in ucloacal, ctrocess iccal infrequent 
-- .,initiel entry set in unitrer (quit) ane 
Saerain COC y 
—eeeepGeot trailer set in unitrep mein body 
program.message transmitted := u.l.status.transmittec; 
Puoemamecirrent acti®m := action is; 
Steet tou trep.cnoo0se action 
E@ecomecmecurcent area := area is; 
meoete im unitrep.choose gréa 
Eaeeaemecurrent format ;:= format_is,> 
aceite Drintio.set formrat 
Poonam erinting line := line count; 
cma pri ntio.put priater 
Rewomrcite Sel in unitrep.choose action 
ee STATUS ); 
Create(fyie, STATUS ,¥rite Cnly); 
Write(fyle,program); 
CLCSE(fyle); 
ENI store status; 
BNE filerA; 
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PACKAGE filer? Is 


4 ? 


pemseehadl file hendling operations for the 
neo urMc tnre 


—_, 
ne 
—_ 


date 


FUNCTION valid file(filename: STR 
= rm 


T 
checks for valid externe}] 


NG) RETUPN BOCLIAN; 
files 


TYPE reason_code IS (normal,file error); 
PROCEDURE terminate(reason: IN reason_code; 
filename: IN STRING); 
meer re OOint for the UNiikE?Y orosgrarr 


PROCEIUF?E load file(filename: IN STRINGS); 
pomemodas 4 PadrPtliculddr unitrep data set 


BHOCEDURE store file(filenamre: IN STRING); 
\“-- ¢tores a particular unitrep data set 


PRCCHUCURE load status; 
——- loads and performs operations required by status 


PROCEDURE store status; 
—-- stores the status state 


UNI filer3; 
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mere 2O,util,strlib, --JANUS/ATIA) library 
Comsio,printio, 
urglobal, 
--# urtest, 
Ua trepel, 
Umadrinl urairk&; 
PACKAGE 30LY filer3 IS 
YS? io; 


PSE printio; a erornmat. 1S 
USE urglotal; == ae Ones .areca 1S 
USE unitrepsB; --u,data types 


Pol uradrinE,urairB; 


=—moormdi tiie Handling operations for the “3° data 
aa sore CcLUre 


fyle: FILE 


FUNCTION valid file(filename: STRING) RETURN BOOLEAN IS 
USE io; mEOpe Me ulOoh ..Oresw)t 
Bom sstrlibs; -- Extract 
——- opens 7ILENAME to check pvresence.If FILENAME 
memo ohesent, returns PALSE otherwise closes 
—-~ FILNAME and returns TRUE 
BEGIN 
abun crept) Le 
buffer := filenare; 
Semonreck for UNITxxx8 
Deeeextract(buffer,1,4) = UNIT 
Wreract(bufzer,1,4) = 
Baeecer s= buffer & 8 ; 
mil TE; 
Open(fyle,bduffer,Read Only); 
Peeke result = 265 TEEN -- file does not exist 
RETURN FALSE; 
KLSE 
CLCSE(fyle); 
RETURN TRUE; 
ENT IF; 
ENT valid file; 


PROCEITURE terminatefreason: IN reason code; 
filename: IN STRING) IS 
US% consio; 
eo ,utL 1; ~- Halt 
a—# USE urtest; mae est. ti) e 
pemeeteess procedure iS the Exit point of the orogramfr 
——- reason can be either NORMAL or for FILE SRRCR 
BueGIN 


nN 
4 
(1) 





--# 
—# 
=z 
--# 
—--# 


Zev cCmcuGmente UNttTrep Bate 
store file( UNIT@2O ); 
TF reason = normal THEN 
close_ final test; 


ZLSE peeeeeson 1S site error 
—-- check _required_ m2 les abort 

IF NOT IS_CPEN(test_file) TEIN 

Cpen(test file, TEST.A3R ,Write Cnly); 
ENT IF; 

Puaivest file, 7 

‘FILE FRROR TERMINATION - & filename); 
NEW LISE(test file); NEW_LINE(test file); 
OMCSE( test. awe); 


Glmeer Screen; 
tutxy (2,3 ee ERROR TERMINATION’); 
putxy(@,5,filenare & is required & . 
“but rot present on the assigned disk ); 
Die ry (2.5, 
mooveeemac peaquirec file to tne trope 
Halt; 
ert It; 
eee cerrimate ; 


yy 
(2. 
fe? 
in 
yy 
~~ 


PROCEDURE load file(filename: IN STRING) IS 
-- leads a particular wnitrer data set 

BEGIN ce 
Memmer c= filenarne & 3 ; 
Open(fyle,bvfler,Read Only); 
Read(fyle,u); 
Ch@sti(fyle) ; 

Mime load file; 


FRCCELTUP*® store _file(filenare: ENeSUe ENG) IS 
——mectm@eses d Udrticular usitres cata set 


REGIN 
vuffer 3= fi lenarre Sag aE 
TELITE( buffer 
Create(fyle, Piece: . Weite Criy); 


Write(fyle,u); 
CLOSE (fyle)} 
ENT store file; 


PROCEDURE load status IS 
Pemioac= are performs operations reaulred by status 
2G iN 7 
Open(fyle, STATUS ,Read_ Caly); 
nead(fyle,rrosram); 
Gmeeoe(tyle); 
meme ae hs °= progralm.currenrt_ ection; 


ae 





area iS i= crogram.current 3rea; 
format is := program.current _formraty; 
I? forrat_is(mse) THEN 
set_format(msea); 
ELSIF format eve) THEN 
Mee Gorrattoer); 
HLor —rerToOrmay 15 text 
cet_format(text); 
EN] IPF; 
mene count := program.printing line; 
TF NGT valid file( UNITEZOG © pus 
terminate/file error, UNITZ@e ); -- 
END [F;5 
IF action_is(log) TEFEN 
load file( UNITG¢e2 ); 
Mio 
load_file(program.workfile); 
ANI (Ff; 
ENT load status; 


UNIT@E?E 


>) 
ae 
m 
Q 
a 


PPOCETUPE stcre_ status IS 
poco tes the Status state 
BESIN 
deer Set 19 urlocal, trocess Iccal. infrequent 
Soeeeeottidal entry set in uaitrep (auit) 
—-- and main body 
Beet trailer set in unitrep rain body 
—aeeecaee trais@mitted set by filers 
Paeeramncurrent action := action is; 
-—- set in unitreér.choose_octicn 
Deofrem.curreit aréa i= area is; 
eee gy UNitrer.choose area 
pRoemem. current forrat := format _1s; 
ce oe pridtio.set forrat 
poeesom.primeing line := Line counts 
Sect printio.put priater 
somes orki ile set in unitrec.cnoose action 
Dee STATUS ); | 
Opeememerle, STATUS PWrite Cnly); 
Write(fyle,vrogramr); 
Cheomey le) ; 
Bime stcre status; 


ONT filer3; 


NN} 
N) 
_—S 





Mmepe Unt re@pa,urlocaia; 
BAGKACE triccal I[S 
wom unptrepé urlocaliA; 


-- This vackage provides ICCAL routines for 
“= UNITREP construction 


iePpl aoe p 


> part 
PROCEDURE pre 


S (Weader, trailer); 
i 


t 
cess lncal(part: IN mse part); 


ENI urloceals;s 


bo 
nN 
-— 





wee 6 10,Strlib, --JANUS/ATA libraries 
SOnMswe,printio, 
WU tad. 
wireeeesurelobal , 
WrwocalA,urlocali, 
unitrepA; 

meok AGE ECDLY urlocal IS 

Moe consio,printio, 
Wrwtaer, 
Unghie, urehobal, 
urlocaldA,urlocali, 
unitrepA;s 


“suis Dackaee prevides LOCAL Fhutines for 
~UNein er construction 

Saemideesets MOGID/UNITIL, OPER, EXER, POSIT, 
—~- RMKS are supported here. 

aueersaee information and BCL&S supported in 
——an boca] i 


PROCETURE process local(part: IN msg part) IS 
Upe strilid; Sam Gi ot © ecient Se OL at T 
USE io; --Open,CLCSE,Gi? LINE 


§ 


meOGhimes p~rocess local miss IS 
Vomemctr is by =S Eee ret 


PROCETURE lLocalmrask_ misc [5 
EEGIN 

localmrask; : 
putxy (38,3, -MISCELLANECUS— }; 
rite, 4, ( ) -la- Cperation Underway ); 
rutxy(1,5," t); putxy(12,5, Coeration Coceword oF 
putxy (47,5, Plan Criginator and Nurber ); 
Eeamei,c, OF ); ; 
Pee G Ce )3 
putry (46,6, mee oo ce 3 
Pieri, 7, + ) 
mye, ec, ( ) -ib- Exercise Underway ); 
putxy(i, 9, | )j putxy(Su,9, Exercise Nicknare ); 
Eup y (1, 12, mor oy 7 
aa a) re ere & 


ia.” 3 
pulxy( 2,12, ; 
a) —-ic- Operation/ixercise Terminated ); 
Eutxy(2,i4, ; 
aa) —-2- Position - Required for ship/subd )}; 
paery (ig ,15, ; 
“Location (or EXEMPT) or PAL LONG ws 


ee 





eineewasom,15, AS Of LTG ); 


putxy(1@,1€, 

ween ne -------- .. adreDC-dddrrit'); 
peurycc, lo, ‘ddhhrmZMyMyy ); 
tutxy(d,1e, ( ) -3- Remarks: )} 


ENT localmask misc} 


PROCwiUie fillbowlocalamisc IS 
ERGIN 

localrask misc; 

ie U1. operation. uncerway is N 
DULY (4,4 ,Sstar ); 
putxy (€,€,u.1.0peration.codeword }; 
putxy (48,6,u.l.operation.plaan org aurner); 

RLSIF u.l.exercise.underway THEN 
putxy (4,8,star)3 
piety 2,1%,u.1.exercise.aickdare) } 

ELSE 
NUIL; 

END IF; 


een ol wel. position.lat lone TEEN 
Pitcwrs,1C,U.1.positioa.present location); 
#LSE 
Dumais. le uelewpesition.sresent location); 
ENT IF; 
mip y teenie, 0,1.p0sition.dte); 
Mee. !.oes7ti0r.change TEEN 
etm | cemeeaens Dalcy); 
fea. | poset il Omsamonwenenze ~The N 
Bute, Ge. 1l4;a mwark); 
END IF; 
END IF; 


IF u.l.remarks.change TEEN 
cutxy(4,18,star); 7 
putry (21,18, ON TEIS EaGE ); 

ELSE z 7 
putxy (21,18, NONE ); 

END IF; 

Petia Localirisc; 


Pad@enine process refdrks Is 
—=memoceSces Temarszsy sets 


tr 


EGIN 
u.l.refarks.number of peges <= a; 
FOR number IN 1..mrax _rmrks_ rages LCCP 
process comment (’ AMKS & Int_to Str(numoer), 
u.l.remarks .vage(numrber) ); 


Zee 





ie letieed .remarks.page(nurber).change TEE 
Et; —— last page not modified 
ELSIF u.l.remarks.page(nurber) .nurber_of lines < 
max comment TEEN 
u.l.remarks.number of pages := number; 


RXIT; -- last page not completely used 
ELSE 
u.l.rerarks.numter of pages := number; 
ENT IF; 
gND LOCP; 


iil remamesS.number of pages > Y TEEN 
mel. Trevwearks.change := TRUE; 
EIESE 
u.l.remarks.change := FALSE; 
Ae LE; 
END process remarks; 


BEGIN 
me Gr 
ertie local misc 
Eo perdtion/exercise 
fodify_oper_exer: LCOP 
IF NCT u.l.exercise.underway THEN 
ECO 
putzxy(1,4,blank); 
getxy_imrediate(1,4,key); 
Choe key ES 
WHEN x;itat => 
medrese lai 6, 6,52) 5 
clécr “field (48, s (23 )3 
getxy(6€,6,buf fer, 32); 
Pam piir her. = tell strings Pah 
u.l.9peration.uncerway := FALSI; 
ELSE 
Ua Omera tt On ecCew Orden: =) Dut, eT, 
ue lLoopera tion. Sedenas s= TPUE; 
putxy(4,4,s5tar); 
getxy (4&,€, 
u.l.operation.plan org a2umrber,23); 
Pee iGGray Oper =cKker, 


FAL IF; 
WHEN @ => 

error(29); -- ampn not allowed 
WEEN no input!space => 

EXIT; 


WHEN ques => 
help( OPER/EXER )} 
mir Ocal Ti s.c, 
WHEN OTEERS => 
error(6€); ~-incorreéct input 
END CASE; 


bd 
nh 
> 





END LOOP; 
Noein, 


IF NCT u.l.operation.underway TREN 
CCOE 
putxy(1,&, blank); 
getxy_immrediate(1,8,key); 
CASE key IS 
WHEN x;tab => 
clear field(8,10,€2); 
getxy(S,12, buffer,é€2); 
{¥ buffer = null string TEEN 
u.l.exercisé.underway := FALSI; 
EXIT; 
EES? 
u.l.exercise.nickname := buffer; 
u.l.exercise.underway := TRUE; 
putxy(4,8,star); 
EXIT modify oper exer; 


\ 


END IF; 
WEEN a => 

error(2$); -- arpn not allowed 
WEEN no_input!space => 

EXIT; 


WE ques = fe 
help( QPER/EXER ); 
ami local msc; 

WHEN OTEERS => 
error(€); -- incorrect input 

END CASE; 
END LOOP; 
ENT IF; 


LOCP 
cutxy(1,12,blank); 
getxy_immediate(1,12,key); 
CASE key 15 
WEEN xjtab => 
Woleonerawrodsunderway >= FALSE, 
putxy(4,4,blank); 
clear field(6,6,32); 
clear field(48,€,23); 
u.l.exercise.underway := FALS#; 
putxy(4,8,blank); 
clear fiela(#,12,62);3 
Peer od 1 ty 20 per eX er, 
WEEN a => 
error(29); -- ampn not allowed 
WPEN no _input;Space => 
mel Tocity Oper exer; 
WHEN ques => 


0 
No 
(r 





help( CPER/EXER ); 
melo 2ocadl misc; 
WHEN OTERERS => 
error(6); == InNcommect =iyput 
SNE on F 5 
ENT LOOF; 


END LCCP modify_oper_ exer; 


Pci yee s1tioa: LOOP 
Duce ol, 12. ylank); 
me pesition is required for shis/sub, caly 
BeawrelsCnangeac Lon others 
IF ((program.unit IN ship..submarine) 
AND NOT (u.l.position.change)) THIN 


Wey e:= xX; 
bios 
getxy_irmedieate(1,14,Key); 
EN IF; 


Croeesey [5 
WEEN xitab => 
eutey (4,14.star); 
elear field(1@,1€,22); 
mutxy (52,16, "admmIC- -dddmrfC ); 
cutxy(55,16, ddheemZeeoyy ); 
met xy (1g, ee 
u.l.position.present location,22); 
Meee nosition.change := TRUS; . 
moo apost tlodapresentelocatioan =) EAZEMPT 
THEN 
Vinee turlbier action required 
Mest wale pOoSition.present location = 
NI Strige Joan 
-- get lat/long 
eee OStoLONelalowOne <=> aU; 
LOOP 
ee URW SS 5 lo 
Pyeocsir1 on. present location, 14) 5 
yerify lat loag( 
u.l.position.presert location,.success); 
*XIT WFEN success; 
mete los, Le, 
UP lerOsU Lore present oloca tl Ome 


ENT LOOP; 
—— 2CTsasot cote 


LOOP 
Pet ny (Senior up Orit on «0 be, be): 
ee dte(u. ie POsSitt Lon: ite, sucecess);} 
EXIT WEEN success; 
Dey (Seales! 1 DOS Mt Lomas.) 
END LOOF; 





ELSE 
“.1.position. mat long := FALSE; 
~- CY asor ate 
LOOF 


Secure eecen | ~permtion.dteglec) ; 
verify_ ee oe pesition.dtg,success); 
EXIT WEEN success; 
DUURM cee lc 1.1]. pasition.¢te); 
END LOCP; 
ENT IF; 
WEEN a => 
PEM eS 1. toa, change ON 
process comrent( POSIT , 
Nob seosStulonm. amma 7 
fla local wise; 
iow 
oeror (2 7); -~ set not chansecd 
END IF; 
WEEN no _inputi;space => 
EXIT modify position; 
WHEN Ques => 
nelnt POS YP hs 
mrii Local misc; 
WEEN CTEERS => 
error(28); t+- allowable inputs 
END CASE; 
iooemeeo. Modify PeSition; 


= een aes 
IF mark{1,18) THEN 
Pmeeess FTemerks, 
weveoocal rises 
END TF; 


outxy(@,2@,blankln); a 
peer 2,20, SENTER? te continue, &NTER <Kk> & 
“to Reselect: )5 
reselect := mark(44,2¢)} 
RXIT #o EN NOT reseléct, 
SNES EOCe ; 
mueemrocess local misc; 


PROCELURE rrocess_local_infrequent IS 


PRCCIITUPS localmrask_infrequenat IS 


ERGIN 
localresk; 
ese? 3, -INFRECUENTLY CFANGEL ITE MS- ); 
cutxy(@,5 a ) -1- Unit Tyne }); 


Ay) 


ae 





Emcxy e,€, ( )Ship ( )Suomarine ( }Air 
)Shore ( )Other );3 


putxy(2@,9, ( ) -2- Unit Ident fication - & 
“OPNAVINST SaGe71 APP Cc ); 

putay (ay 10, ee ee). 

rutxy(@,12, ( ) -- Last Serial ---"); 

putxy(@,15, ( ) —4- Message to be Prepared 


as Feeder: j} . 
putxy(12,16€, (UNITIIT vice MSGII data set) ); 
END localrask infrequent; 


Po ewneeetiil local infrequent IS 
3EGIN 

localmask infrequent; 

CAweepreerar.unit IS 
WHEN Ship => putxy($,€,x mark); 
WHEN submarine => putxy(19,6,x_ marx); 
WHEN air unit => putxy(34,€,x _mark); 
WEEN shore => vutxy(4 ABE, x. Tark); 
WEEN other => putxy(54,6,x_ marz); 

Bt OAS E; 

Eubxyiesid,u.l.status.unit id); 

rutxy(2¢,12,u.1.status.lest serial); 

IF u.l.status. feeder report THEN 
muy (5,15, YES ); 

eles 
putxy (46,15, NO); 

END If; 

Pies CALUS campn. Chaange “TEN 
putxy(4,1£&,a_rmark); 

END I; 

Peet eelocal infrequent; 


3EGIN 
meee 
Pmeeeelocal infrequent, 
aos cel Sault ty pe 
IF mark(1,5) THEN 
CASH rrograr.unit IS 
WEEN ship => putxy(9,6,o0lazk)3 
WEEN submarine => putxy(i9,6,blanx); 
Mee ain unit => putxy( 2 2,€,tlank)} 
WEEN shore => putxy (45, 6, blank); 
WEEN other = pumas. EP Sie 
FND CASE; 
OC er 
IF mark(9,é) THEN 
program.unit := ship; EXIT; 
FLSIF mark(19,€) THEN 
program.unit := submarine; «£XIT; 
ELSIF mark(34,€) TEEN 


ee 


Nw 
Nj 
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tls 





PrOgram.unit := air unit; EXIT; 
FLSIF wark(43,6) TEEN 
Porveneat. nny t s= Shore; PeiT; 
ELSIF rark(54,6) TEEN 
peoeremeunit s= other; EXIT; 
ELS#@ error(16); -- must choose one 
END IF; 
ENT LOOP; 
YND IF; 
weowd lis winil 1dentrtficaticn 
Ik mark(1,S) TEEN 
LOCP 


clear field(8,18,30)3 
Femme, Usl.Statvs.unit id,3¢); 
POT eWeEN uU-1l.Status.unit id /= aull string; 
error(22); -- required iter 
FNE LCOF; 
ENT IF; 
~- Last serial, smould only be usea for initial 
lf markii,i2) THEN 
wien iiae On changing seriel 
error i2e), error(24), 
mueey (wee, blank) ; 
Lf mark(1,12) THEN 
clear field(28,12,3); 
Meestetrus.lastweserial := 
Bete ee ee toe) 2 yi 
IF u.el.status.last serial /= $9 TEEN 
Welesitatus. current Serial := zero _padis, 
ipebemoren( Str te int{ 
me .Statusslaststerial) + 1.) }; 
ie 
Piecratms current sentales= o2i ; 
I 
3 


*ND IF; 
Set ecd@er report used to separate addresses 
-- and determine UNITIT vice MSGIT set 
Gmodieyenmsesid unitid: LOCF 
moery 1S plank); 
getxy_ immediate (1,15,key); 
CASE key [5 
WEEN xiteabd => 
ico . 
tery (2 ceebc re oie 5 
Petty immediate( sa,ic, key); 
IF xey = “Y° TEEN 
lees va tus. Cece Tore port 
EXIT; 
Mioke key = N  LEEN 
u.l.Status.feeder rerort s= FALSE; 


TRUE; 





EX La 
ELSE 
EETOnmenn —-- incorreet input 
END IF; 
ENT LOOF; 
WEEN a => 
-- this sét always submitted, 
Boe omer eK One chance 
Frocess _comment{ ILENT ,u.l.status.ampn)}; 
fill _local_infrequent; 
WEEN noO_input;Space => 
EXIT modify_msgid_unitid; 
WEEN ques => — 
help( IDENT’); 
fill _leccal infrequent; 
Seu CLleERS => 
error(6); = COR TeG >. aout 
ENT CASE; 
eit CCP modify msgid unitida; 


goer CSeleecc -ODt10n 
putxy(%,20,dlankln); . 
putxy(@,2@, <ENTER> to continue, ENTER <X> to § & 
Reselect: }; 
reselect := mark(44,22); 
EXIT WHEN NOT reselect; 
ZNT LOCP; 
FN? process local infrequent; 


PROCELIURE print msg(part: IN msg part; IS 
BoB strlib; Sau =X Cract 


address indent: STRING; 
ELGIN 
If part = header THEN 
Ik action is(draft) THEN 
Men N 1..45 LOOP 
put_printer(null_string); 


END LOOP; . 
peeeenunter( ROS UNDUREPSDRAR TA DATA ); 
pieemeaver(u.l.status.uait_id & Sree 


Sele. StCatticucuorenteserial); 
Eueeorigver (dull Striag); 
mat criater ( 
"CLASSIFY IN ACCORDANCE WITH OPNAVINST 5510.1 ); 
NEW_FAGE; — . 
Geeeetwcid( INITIAL ITEMS }); 
NaW FAGE; 


END IF; 
Giise U.l.ressage.precedence [5 
WHEN routine => buffer := & ; 


™ 
(nN 
tS 





WHEN priority => tuffer := "P"; 

WEEN immediate => buffer := "0} 
WEEN flash => buffer := 2 ; 

ANG CASE; 


put_printer(buffer &  ” & u.l.mressage.édtg); 


imeeommat is(ocr) TEEN 
ee meee ocent c= ettimact (blankin,1,18); 
ELSE 
gedress indent := null string; 
ENT IF; 
Put_printer(address indent & FM "& 
u.l.ressage.originator_address); 
wrint_addressee( ACTION’); 
trint_addressee( INFO’); 


CASS u.l.mressage.classification IS 
WHEN unclas => . 
Dieter s= UNCLAS ; 
FEN confidential => . 
Pierer := CONF IEENT I AL ; 
PimeN secret => : 
OUeger := 5 FCFRPET s; 
WEEN top secret => : 
Pieper := T CPS k CR ET ; 
ENED CASE; 
put printer( buffer); 


Mmemcictton isidrart) TEEN 
Genat ¢ _aid( MESSAGE EEALIR an 
NEW PAGE; 


-- oper/exercise 
u.l .operation.underway THEN 
Meee. operation.plan org aumber /= null strixzeg 
ae TEEN 
buffer := u.l.opération.codeword & / 
6S u.l .0Operdt Ol 0lenmore 2uimser, 
ELSE 
bucreGr s= u.l.operation.codewerd; 
Pilea F i —— 
Boeri aber( OPER, Gianuffer ie// ); 
ELSIF u.l.exercise.uncerway THEN 
Fut_printer ( emel. 
EXER/ & u.l.exercise.nicknare & // )} 
ZND IPF; 
Beedet on isidraft) = 
draft_aid( OPzR/EE 
END IF; 


FEN 
Beas 


—mesmid/unit sets 
Eh ACT u.l.etatus.feeder report TEN ae 


eon 





Fut_printer( MSGII/UNI® CREP/) & u.l.status.unit_ia 
& / & u.i.stakus.current serial & // ); 
ELS: -- unitid separation 


NSW PAGE; 
IF action is(dreft} TRIN 
put_printer( **¥©** Page Separation Pronenstie te 
“for FEEDER REPORTS #**3%' )5 
eb iF; 


Fut_printer(null string); 

put _printer(" ‘UNTTIZ/” & u.l.status.unit id 6 

| Vy Sets stavus.current sertal & // ji; 
ENT IF; 


Ik action_is(draft) TEEN 
Bae aid ( MSGIL/WNITIT ); 
END IF; 
aC Oso beset 
I} required print(u.l.position.change) TRIN 
Seer t=) TOSIT/ & u.i. position present location 


Sees 
IF u.l.position.preseat_location = ZXEMPT” TEEN 
put _printer(buffer & “/"); 
PES 
es sc es (putter Seeeposi cmon, dime. 7/7. 1; 
Eee LE; 


IF u.l.position.ampn.change THEN 
priat corment(” POSIT ); 
END IF; 
ENT IF; 
ieeeeuion is(draft) TEEN draft aid( POSIT ); END IF; 


REESE -~ message trailing items 
Mmemoteis (craft) OR d.i.status.feeder report TEEN 
NaW TAGE; 
END If; 
Peeue).renarys.change THIEL 
Beneoece IN it -u.l.revarks-aurter_of _peges LCOP 
Open(fyle, RMKS & Int_to Str(page) & ".AMP’, 
Read Only)} 
Boesline IN i..u.l.remarks.page(pazge). 
numberof lanes: OOF 
buffer := GET LINE(fyle); 
IF page = 1 AND line = 1 TREN 


buffer "RMKS/ & buffer; 
INC IF; 
IF vage = u.l.remarks.aumber_ of pages AND TEEN 
line = u.l.remarks.page( page) 


eee Dereor fines SHEN 
Meer := vuifer ss 77 5 
aND IF; 
mieepriater( buffer); - 





ENT LOOP; 
CLCSE(fyle); 
END LOOP; 
END IF; 
I¥ action _is(draft) THEN draft_aid( RMKS' ); END IF; 


=e el &s 
iMiietemessage.classification > ubedas TEIN 
put _printer( ICLAS/” & 
u.l.message.declassification & //')3 
ENT IF; 
Eut_printer(end trans); | 
Mecetion is(draft) THEN draft _aid( ZCLAS ); END IF; 
INT IF; 
mie print mse; 


BEGIN 
IF action_is(neww) THEN 
u.l.change := FALS#; 
Hele Status.transritted := FALSE; 
IF u.l.status.current serial /= “$¢?° THEN 
Mee Status.current_ serial := 
pero pad{3,Int to Str(Str to Ing 
(ud. state omhase-cerial lost ))5 
tion : 
u.1.Status.current_ serial := v@i ; 
BNC iF; 
v.1.Status.aTmpn.change FALS 23 
u.l.messSage.precedence ee alte vos 
teememessace.dtge := null string; 
Uli. message.classification := confidentiel; 
Meee ssaze.ceclasSizication := null string, 
Ueieepesition.change := FALSE; 
Mmernosition.amfp2.change := FALS=; 
u.l.remarks.change := FAILS#; 
Pomel N 1..max rmks pages LCOF 
U.l-remarks.page(i).chazgeé := FALSE; 
END LOCF; 


ELSIF action_is(modify) TEEN 
Peocess Local inzrequent; 
Peecescs lccal mse; 
process local mwisc; 


u-l.change := TRUE; 


ELSIF action_is(print) OR action_is(draft) OR 
action is(verify) TEEN 
Cali mve re on; 
print mse(pert); 
pranter oft; 
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ELSIF action is(log) THEN 

-- delete .AMP files, not saved in 
-- data structure 

TELETE(. POS Lae AMF: ae 

TELETE( IDENT.AMP ); 

FCR i IN i..u.l.remarks.number_of_pages LOOP 

DELETE( RMKS” & Int_to_Str({i) & .AMP ); 
FNIT LOCP; 


END IF; 
ENT process local; 


ND urlocal; 





WITH urlocalA; 
PACKAGE urlocali IS 
USE urlocalA; 
-- provides processing of message information 
PROCELIURE localmask; 
FROCHDURE process _local_msg; 
FROCEIURZ print _addressee(filename: IN STRING); 


FNI urloceall; 


nN) 
Cn 
cn 





Moe lige strlib, --JANUS/ADA libraries 
ComeloO,printio, 
urglobal, 
Wat Te pA, 
urlocalA; 


PROKAG? SOLY uwrlocali IS 


USE comsio,printio, 
unglotal, 
unitrepAéA, 
urlocalAs; 


mo paectaze provides Kessage Information LOCAL 
pamuommemes fOr UNTTRNP construction. The [CLAS 
-—- data set is Supported. 


FROCZ2FURE localmack IS 


BEGIN 
SBOTder; h 
eutean(e.1 4) LOCAL ); ‘ 
Bat xylg, 22, ENTER <X>/tat to select, & 


"<ENTERD/Space for next, <A> to amplify, " & 
(<o far help ); 
END localmask; 


PeOQCmiimeecrocess local msg IS 
address line: STRING; 


Paocsmuas localmask mse 15 
EEGIN 
localmask; 
putxy(29,3, -MESSAGE INFCRYATICN- ); 
eutxy( 2,4, Ey ) -1- Acdresses ); 


pory(se5e.( ) Originator ss & 
Eee ys EN aOR 

Pumeen(6 6, (Action ); 

Pye, ’,,( ) Info ); . 

cutxy(@ 19, . yi 2 oli cic ieh, ecaeurOrye y's 

pies, 9, (.) =g— Precedence); 

putxy (9, - Unclas )5 

rutxy (48, 12, Seo inden Cul yee 

Puen), — Confidential); 

rutxy (48, a, - Priority ); 

a: ae re secret ); 

putxy(48 - Immediate )3 


putxy(S, ihe i Top Secret )} 
tutxy (4&8, 13, 2 eon 
eta. Lee 
“( ) -4- Declassification Instructions )j 
ae ra = = ———--—--—---- & 





ENT localrask ase; 


PRCCELURE il] _local_mseg IS 
ZEGIN 

localmask 7rég; 

putxy(22,6,u.l.ressage. originator _address) 5 

CASE u.l.ressagé.classification IS 
WHEN unclas => putxy(S,1@,x_mark); 

WEN coatmeentijal => erpuizy(9,11,x mark); 
WEEN secret => putxy(¢$,12,x mark); 
WEEN ton secret => putxy(,12,x marx); 

BND CASE; 

CHS u.l .essage.precedence [5 
WHEN routine => putxy(48,10,x mark); 

WEE prioritye => putsy(4S,llex_mark); 
WEEN immediate => putxy(48,12,x_mark); 
WEN fle ehe—% putxy(4@,25,x rark); 

Z=ND CASF; 

Ik uw.l.rmessege.classification > unclas TEEN 
Die cyl 4s, star); 
putxy(8,17,u.1.message.declassification) ; 

PRD IF; 

END fill_iecet_ms3i 


PPCCEIURE process addressee(filenare: IN STRING) IS 


Bom Strid; —=- Fxtract 

US ic> =—"Cviee70lLOSe,Get line 

Max cadd@pessas CCNSTANT *= 15; 

slo: CCNSTANT := 4; —-- screen line offset 
address line: STRING; 


Tor numbemeor _adiwresses: INTEGR, 
address: ARHAY (1..mrax_address) CF STRING (S@); 


FRCCEIURE addressmask IS 
EEGIN : 
Mone cSee ne s$=6 S—a== 2 Aweeeeract (da shin,1,+4); 
border; 
putxy(@,1,filenare & | ADDRESS=iS );j 
FOR line number iN wie no cmacare ss, LOOP 


puter (le sho + line nurbermad@aress line); 
END LOOP; | . 
Diem? Syoweine  —. siiakksetmesctarting point 6& 
fOrweenticvetion lines ); 
END addressmask; 


FoCeremteiefill.acdressmasx IS 
EEGIN 
acdressmasx; 





POR 1 IN le.number.of ada 
putxy(15,slorti,address! 
ENT LCCP; 
END fill addressmrask; 


FRCCHLTURE initialize addresses IS 
EEGIN 
address(1) := [ELITE This Line and Put ” & 
“First Address Here’; 
FOR i IN 2@..max_address LOOP 
g@aress (iat =eanl | string, 
ENT LOOP; 
END initialize acdresses; 


2 


bat 


GIN 
——- réadin current addresses 
initialize addresses; 
CFEN(fyle,filename,Read Only}; 
RGR 1 IN 1..max_address LOOP 
EXIT WHEN ENT _OF FIDECEyib) s 
address(1) := GIT _LINE(fy! ee); 
number of addresses := i; 
END LOOP; 
CLCSt(fyle); 
fill addressmask; 
eon 
putxy(8,29,dlankln); . 
putxy (1g, 205 CENTERS to continue, & 
Potp et OUcCnatcen 9 towendse, & 
"<2 “or helps: 
getxy_ immediate(75,22.xey); 
CASE key IS 
WHEN no_inputj;space => 
elt 5 
WHEN c => 
mark := 1; 
LOOP 
putxy(2Z,22, blankla); . 
putxry (2,20, ‘<DD> to delete, <A> to add & 
at tne cursor position, & 
"<X> to exit change ); 
getxy immediate(13,slo + mark,key); 
putxy(1z ,slot+mark, Clank); 
CASE -sey 0S 
WEEN no _inputjspace => 
IF (mark = numbter_of_addresses + 1) 
CR (mark = max accress) TEEN 
Tark := 1; 
BES Ef 
mark := mark + 1; 
END IF; 
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eoeecirrat => EKITS 
WEEN a => 


FOR i IN mark..number of addreszes+l 


address(i) := address(iti }; 
END LOOP; 


LOOP 


address(mex_address) := nuil_strirg; 


number of addresses := 


NU Rete Ot waGcrecoc. 


END IF; 
fill_addressmask; 
WHEN a =) 
IF number _of addresses < 15 THEN 
FOR 1 IN REVERSE mark+i1.. 


Reed d dy 6c sale Or 


Bence cee mracicineic sc (=): 
END LOOP; 
address(mark) := aull 
nurber of addresses : 

Rurmoer o 


strine; 


fill addreéessrastk; 
Seuss Loner nar <, 


fark “= fark + 1; 
*LSE 
erroriag)5 
-~ only if addresses allowed 
END IF; 
PEN SC Tee aoe =) 
ExGOn lc eo 11coerect iaput 
AND CASE; 
FANT LOOF; 
WHEN e => 
bac cules © means s 565) 
fill addressmask; 
WEEN ques => , 
help( ADDRESSEES }; 
fecaareSsmas ik; 
WHEN OTHERS => 
error(é); —-—- incorrect input 
END CASE; 
END LOOF; 
-- store file 
CELETE(filename); 
Create(fyle,filename,Write Only); 
FOKeemIN lewwnatcacd ress OOF 
FXIT WEEN address(i}) = null string; 
PUT(fyle,address(i)); 
NEW LINS(fyle); 
BAD LOOP; 
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Weteare Sees +15 


5 - fw om ! ; = ® 
‘ eddress(rarz;,5@); 





CLOSE(fyle); 
END process addressee; 


BEGIN 
LOCF 
Pi) eelceabamse; 
~~ addresses 
rodify_addresses: LCOP 
putxy (1,4, blank); 
getxy immrediate(1,4,key); 
CASE key IS 
WHEN x;tab => 
IF mark(S,5) THEN 
== OT 121 Davor 
LOOP 
GWear 1 teld¢cs,o,50) 5 
POUR (2o4 o' 
u.l.message.originetor address,59); 
ZXIT WHEN u.l.message.originator address 
/= null_ string; 
error(22); -- address reauired 
END LOOP; 
END IF; 
ae a C0 
IF mark(9,6) TEEN _ , 
process addressee( ACTION ); 
fale local mses 
END IF; 
== J10ne 
immer (S , 7) sDEEN 7 r 
process addressee( INFC }; 
fill _local_msg; 
END IF; 
WEEN no_input;Space => 
EXIT modify_addresses; 
Meieawes =? 7 
heln("ALDDRISSEES' ); 
full. local se; 
WHEN OTHERS => 
error(€); == incorrect input 
END CASE; 
SO metre modify addresses; 


-~- ressage.classification 
I¥ mark(1,9) THEN 
CASE u.l.messageée.classification IS 
WHEN uncles => putxy(¢$,10,dash); 
WHEN confidential => putxy(G,11.dash); 
WHEN secret => putxy($,12,dash); 
WHEN top secret => putxy(9,123,dash); 
ENT CASE; 





LOCP 

IF mark($,10) TEEN 
u.l.wessage.classification := unclas; 
Meese ssdf@eaGeclassiftecation *= mal) Stim; 
Raueky (4eene , Dilvauane: 
EXIT; 

ELSIF mark(9,11) TEFEN 
ee om mee een “= COonriaential, 
ae 4h 3 

ELSIF rark($,12) TEEN 
u.l.message.classification := secret; 
eK Ts 

Bos ih emark 49515) TEEN 
Heereressage.classification <= top secret; 
marl; 

ELSE 
Srwor | 16))i; mimes t SNoose sone 

END IF; 

ENI LOOP; 
END IF; 


~~ Wwesseage.precedexnce 
IF mark/4@,9) TEEN 
CASE u.l.rmessage.precedence [S 

WEEN routine => putzy(48,12,dash); 

WEEN priority => putxy(48,11,dash); 

WFEN immediate => putxy(4@,12,das4); 

WHEN flash => putxy!48,13,dash); 

END CASE; 
LOGR 

Iz mark(4@,10) THEN 
u.l.réessage.precedence := routine; 
EXIT; 

FISIF mark(48,11) TEEN 
Ua Wemesisaee.prececence  — oriocrity; 
EXIT; 

ELSIF mark(48,12) THEN 
u.l.mwessage.precedence := immediate; 
ee ans 

ELSIF mark(48,13) THEN 
ielewessaee. precedence := flesh; 
EXIT; 

ELS & 

Snort le); -- rust choose one 

ENT IF; 

END LCCP; 
END IF; 
-- messege.declassification 
IF (u.l.message.classification > unclas 
AND u.l.messSage.declassification = 
Tel) striae; ae 
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LCCP 
eileen eld (ere act ); 
getxy(8,17,u.l.mressage.declassification,€1); 
EYIT WHEN u.l.message.declassification 
= OL SUG eae 
error(21);-- required for classified message 
¥ND LOOP; 
ENT IF; 
-~ reselect option 
money ci, bDlankln ); 
putxy(@,20, <ENTER> to continue, ENTER <X> to " & 
Reselect: )} 
reselect := mrark(44,22@); 
EXIT WHEN NOT reseélect; 
BNL UES? ; 
ENC crocess local mse; 


PROCEIURE print_addressee(filename: IN STRING) Is 
USE io; mee i, © LO Se yc kr oti hy fl 
OS! striib; aan Metre Cb 


address indent: STRING; 


BEGIN 
Oren(fyle,filename,Read Only); 
It format_isfocr) THEN 
address indent := Extract(tlankln,1,18&) ; 


pins fe 
address indent := null string; 
ENT IF; : F 
eeeenename — ACTION TEEN 7 
meee s) -= address indent & 10 ; 
Bae e i ; 
wteer ess address indent & INFO } 
Re i; 


tuffer := buffer & GET LINE(fyle); 
put_printer(bduffer) ; 
WEILE NOT END OF FILE(fyle) LCOP 
Pulact) >= address M@adent & 
& G2T LINE(fyle); 
put _printer(bduffer) ; 
END LOCP; 
Croom ( fy) e) ; : 
IF format _is(msg) AND filename = INEFC TEEN 
rut_printer(end_ trans); 
ENT IF; 
ENT print_addressee; 


#ND urlocall; 
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PACKAGE uradmin IS 
-- This package provides access to the 
—- administrative process for UNITREP construction 
PROCEDURE process administrative; 


END uradmin; 





WaTE io,strlid, 
COMSMOr Drintioc, 
urglbdl,urglobal, 
maucil, 
unitrepE,uradring; 

PACKAGE BOIY uradrin IS 
Wom coasio,printio, 
urgltl,urglobal, 
Ue lee 
unitrep8B,uradmin3; 


-- JANUS/SCA Libtreries 


This package provides ADMINISTRATIVE routiies for 
UhReTR*P construction. 
Batasssets COMMANI. ACTIV, 


VERIFY are supported. 


MEDIC. UePUSS an: 


PHROCEPUPE process administrative IS 
WRB O, = epen,Close,#nd af File 
etrlit; =s time ha et 
S—eper.r ores required manipulation O- “Geminis trative 
oem crirat ion 


PROCEIURE adrinmask IS 


-- draws the admin fields screen 
BEGIN 
torder; - f 
Bimtxy (Cb, JOPVMINISTRATIVE ); | 
putxy(2,4, ( ) ci- Command Change )j 
purny (35,4, C0/CIC" : 
pie? 2. or eee = a )5 
putxy (35,5, “Effective DTG ‘)3 
putzy(€2,5," ddhnrmZMMMyy —); . 
pura c, 7, ( ) Tee nC ti Vigverchaj eee) 5 
putzy (35,7, Code -- ); 
poe, e, | ) ~3- Physicien Status ); 
pues ,©, | ) Onboard); 
putxy(35,108, ( ) Departed ); 
rugzy (2,12, ) —4- ney cn ORG’); 
es Bfifective DIG 
putxy (62,12, ddhhmmZMMMyy ye 
Pee iy : 
Ono )CINCPACFLT ( )CINCLANTFLT )3 
PUT( ( )CINCUSNAVEUR ); . 
macm(ceaec, ( ) ~S- Feedback Verificatica ); 


Mena oy 
Corrécted 


putzy (35, Sy) 

Woke oo to, ( «) 
putxy(@,<0, 
for next, 

ENT adminmrask; 


“Ae to amplicy , 


NI) 
> 
if 


") 5 | 
“€X>/tab to Select, <ENTIR>/space & 


Coenoreee ee ); 





PROCELURE fill_adminmask IS 
~~ fills in the administrative screen with 
=~ change information fror the workfile 
BEGIN 
adrinmask; 
putxy(4&,4,u.ad.command.cooic)}; 
putxy (62,5,u.ad.command.dtg); 
IF u.ad.command.change TEEN 
putxy(4,4,star)}3 
IF u.ad.command.ampn.change THEN 
putxy(€,4,a mark); 
END IF; 
END IF; 


putxy(41,7,u.ad.activ.activity_cede); 
IF v.ad.activ.change THEN 
putxy(4,7,ster); 
IF u.ad.activ.ampn.change THEN 
putxy(6,7,a_mark)}3 
END IF; 
END IF; 


itedcmedic.stetue = onbpoara TEEN 
muery( 56 ,9,x mark); 
ELSE 
Puluwilce, 10 ,x mark); 
ENT IF; 
IF u.ad.rwedic.change TEEN 
crutxy(4,9,star); 
If u.ad.medic.empn.change THis 
putxy(€,9,a mark); 
END IF; 
ENT IF; 


Tk Uedd.reporg.new rep 9rg = cno THEN 
ue 12,15,2 mark) 5 
Piste maead.repore.new rep org = cincpacflt TEEN 
Euteeets1S,x mark) ; 
Pietra weda. Tepore.16W rer Ore = cinclantfit TES 
Cutxye; ,lo,x Wark); 
ELSE 
Put (Seno. x Mark); 
ENT IF; 
Duy (62,22 ,U .de@.repore.dte) ; 
IF u.ad.reporg.change TEEN 
EUtCKy (aetc.otar); 
IF u.ad.reporg.ampn.change THEN 
putwy(6,12,a rark); 
END IF; 
END IF; 


t 


245 





Lea aids.. verify. feedback ver = valid TEEN 
(Eutxy(s wien to,x mark); 
Se 


Putxy (SE a6 oe matey ; 

END IF; 

IF u.ad.verify.change THEN 
EU eta ro star); 
IF u.ad.verify.amrcn.change THEN 

putter ls a mark); 

END IF; 

END IF; 

ENT fill_adminmask; 


BEGIN 
=—- €dOsLne approprie te action 
IF action_is(neww) TEEN 
v.acd.change := FALS#; 
u.ad.command.change := FALSE; 
v.ad.command.ampn.change := FALSE; 


u.ad.activ.change := FALSE; 
u.ad.activ.ampn.change := FALSE; 
u.ad.médic.change := FALSE; 
Ueccemecico.ampm.change := FALSE; 
u.ad.reporg.change := FALS4£; 
v.ad.reporg.ampn.change := FALSE; 
v.ead.verify.change := FALSE; 
u.ad.verify.ampn.change := FALSE; 


— 2 aap Ge aw aap Gap Ge ee a ae SS Ce a ee Ce Se ee eee Oe ee ee eee ae ee ae ee ee ee ea 62 ae 6 of 6 ee ae =< ee — Se oe ame es oe ee ae es ee = 


MEolm actyon_is(modify) TEEN 
rodify_admrin: LOCP 
Pill _adwinamask; 
modify. commrand: LOCP 
rutxy (1,4,blank); 
getzxy_immediate(1,4,key); 
CASE key IS 
WPEN x!tab => 

DUtXY Get) Sitar); 

clear eield(4e,4, 3Q)5 

cutxy (62,5, ddhhrmZvMMyy ); 

setxy (45,4, buffer, 22); 

IF buffer = null_string THEN 
u.ad.command.change := FALSE; 
u.ad.command.ampn.change := FALSE; 

ELS 
Uead.cuormmana.cooie := buffer; 
u.ad.command.change := TRUE; 
u.ad.change := TRUE; 

LOOP 
getxy(62,5,u.ad.commandc.dtg,12); 
verify dtg(u.ad.command.dtg,success}; 
FX IT WEZIN success; 
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= 


puixy (€2,0,U.dd .cofmand.dte); 
END LOOP; 
END IF; 
WEEN a => 
IF u.ad.command.change THEN 
process comment( CCMMAND , 
u.ad.command.ampn); 
fill _admrinmask; 
LSS 
Grroric’ ); ~~ no set to arplify 
END IF; 
WEEN no_input;space => 
EXIT modify command; 
WEEN ques => , 
help( COMMANT ); 
fill admrinmask; 
WHEN CTEFRS => 
error(Z&); -~ incorrect input 
END CASE; 
ENT LOCP rodify_commrand; 


modimewmectiv: LOOP 
putxy(1.7,blank); 
Garceimrediate (1,7, «cey) ; 
CASE key IS 
WEEN xitab => 
clear field (41,7,2)3 
getxy(41,7,buffer,c); 
rf buecer = nuliistraae TEEN 
u.ad.activ.change := FALSE; 
Nede@udeuiy.dnipn.ciamee 22 NALSa, 
DUP eeedee, 1.dd-dctiv.activity code); 
lous , . 
Open(fyle, TA3LE.3-€ ,Read Only); 
ECOL 
be vemdeor File(fyle) TEEN 
CLOSE(fyle); 


emeror(1©); -- activity cede not foune 
Petey (41,7, Us.ad.adCtiv.ectivity code); 
EXIT; 

mest 
feheupuetenrm: 8G eh sink (fy le); 

END IF; 


butter .HEN 


fe xt rachirt le. bDUrfer,.,2) 
CLOSE(fyle); 
u.ad.activ.change := TRUE; 
putxy(4,7,star); 
U.ad.activ.activity_code := buffer; 
u.ad.change := THUS; 
EXIT; 

PNT IF; 





END LOOP; 


ctiv.chaange THEN 
5 comment ( ACTIV 
rinmask; 
rrog (27); 
IP; 
Wee a0 linput;spece => 
WHEN ques => help( ACTIV); 
view table( 
fill adriamask; 
WEEN CTEERS => error(2Z&)} 
EAD CASE; 
ENT LOOP rodify_ activ; 
See rorndr. Unit Ih sio. 
modltivomedic: LOCP 
putxy{(1,¢,blank); 
getxy immediate (1,S,xey); 
CASE key IS 
WEEN xitan => 
putxy(4,¢,star); 
putxy(S6,9,biank); 
putry (3.16, slank); 
LOOP 
IF rarx(36,¢) TREN 
uae. medmc.status 
weac.vedmec.chartese 
at; 
home emark (ce, 12) een 
Weee Vedic. Status 
u.ad.mredic.change 
EXIT; 
ELSE 
error(16); 
END IF; 
ENT LOOP; 
WHEN a => 


Se 


iieead. Tedd cared ec THEN 
rE aeG 


Digoce SS ec om ment. 

fill _admrinmask; 
ELSE 

error(27) 3; 
END IF; 

WEEN no_input;space => 
Exit rodify medic, 
WEEN ques => 
here erro)" 

fill adminmask; 


24@ 


;Qe ad vdictiv carmen), 


“TABIE. 


N 


=e On Set .C aimed 1 


EXIT nocify_activ; 


B-€— 


3 


SUG cree lees 


~submarine TEEN 


Oonbceard; 
SR 


departed ; 
TRUE; 


-~ must choose at least one 


N 
pU.dc medi C. ane )% 


—- VOeSetmL Oo aivrl ity 





WPEN OTEERS => 
Snmor (ce); -~ iaput choices 
END CASE; 
END LOCP modify medic; 
ENT IF; 


modify reporg: LCOP 
rutry(1,12,blank); 
getxy_ immediate (i, i2,keyz); 
CASE key IS 
WEEN xitab => | 2 
muuxy ceyle, dahhmmZeMhyvy ); 
pautxy(4,12,ster); 
PUtcwele,15,blank) ; 
cutxy(21,13,blanx); 
Butxy (or,13,blank); 
putxy(54,12,blanak); 
Oe 
IF mark(12,12) TEEN 
Medias GeEpCrTes. New TED. Ome := Cho; 
el is 
DIS MY mack 21,15) 9 TEN 
Meo. TEPC res newmere tc Oneges= cincoactlt; 
EXIT; 
Mestre mark( 37, 1S naa 
Medd .reporg.new rec cms := cinclantilt; 
EXIT; 
Mmioeerme Tark (54,13) Wien 
Meda, repOres Mew ere reors >= cincusnaverrs 
EXIT; 
ELS= 
error, 16); -- must select one 
TND IF; 
ENI LOOP; 
LOOP 
Petmnice. os iedid pre pore .d tw, 12) ; 
verify d@te(u.ad.reporge.dte, success); 
EXIT WHEN success; 
BitmyGee,tel.cd ,repor?g sit 2); 
ENT LOOP; 
vu.ad.reporg.charnge := TRUE; 
WEEN @ =D 
Pre adc .repore. change TEEN 
process comment( REPORG ,u.ad.reporg.ampn); 
fie den rama sk; 
ELSE 
error(27); -- no set to modify 
END IF; 
WEEN no_input;space => 
PLIT me@ity repore; 
WEEN cues => 





help( REPORG’ ); 
fill adminmask; 
WEEN CTEBERS => 
error(28); -~- input choices 
END CASE; 
END LOCP rodify_reporg; 


mocwiy verify: LOOP 
putxy (ite. blank); 
getxy_inmediate(1,1£, key); 
CASE key IS 
WHEN x{tab => 
putzxy(4,15,star); 
punter (oC. 1S blank); 
punxy (oe .l6,olank); 
LOOP 
Pinar e( oc hoje leah 
Were Gove ney 6 Se cues Cy ert 
u.ead.verify.change := TRUE; 
EXIT; 
MES Ie Narkiso,1¢) THEN 
UGe@ «Verity smeeaback Ver <= ccrrected; 
uead.verify.change := TRUE; 
EXIT; 
ELISE 
Srroniac); -- must select one 
ENE if; 
END LOOP; 
WEEN a => 
emtead  VeTircy.chanée hau 
process comment( VERIFY ,u.ad.verify.ampa.); 
fill _admrinmasx; 
FLSE 
Seror (<7) ; -- no set to emplify 
END IF; 
WEEN no_input;space => 
EXIT modify verify; 
Keeieques => 
help( VERIFY ); 
fill_admrinamask; 
WHEN CTHERS => 
error(28); -- input choices 
END CASE; 
Mee Or modify verify; 


putxy(@,29,blankla); ; 
peeyeomes, <ENTER> to Gontigme, Enter “X> to & 
“Reselect: ); 
reselect °= mark(44,22); 
EXIT modify _admin WHEN NOT reselect; 
DAT BOOP modify .<amia; 





ean 22 22 @ & 6S = ap em aw <— 22 O® oe ee © oe ee ow ee = oe Se ae oe a= ~— cmb GP ate a aw ap ee == ep = aap SE ae —w ae ee a ae ee = ee ee ae ae ae oe 


Pioitactron is({draft) OR action is(print) 
OR action is{verify) TEEN 
printer_on; 
ie@aetion isidraft) TEEN 
NEW EAGE; 
ENT IF; 
If required print(u.ad.command.change) TEIN 
fut_printer( COMMAND/ & u.ad.command. cooic & 
“f- §& w.ad.commrand.dtg & “//'); 
IF u.ad.command.ampn.change THEN 
print comment( COMMAKD );}3 
END IF; 
IF action _is(draft) THEN 
draft_aid( CCMMANT ); 


Nees 
END IF; 
iMpeecuared criat(u.ad. oo change) THEN 
rut printer( Hist We ccweact lyse ctu 67 209C6 
Sear 


IF u.ad.activ.ampn.change THEN 
print comment( ACTIV’ )3 
END IF; 
Pectemod is(draft) TEEN 
Oren(fyle, TABLE.B-€ ,Read Only); 
Dieter 2= GIT LING (fyle) ; 
WEILF u.ad.activ. activity code /= 
Zama | Nae rs 1,2 Looe 
buffer := GET LINE(fyle); 
ENT LOOP; 
CLCS¥(fyle); 
put_printer(null_ string); 
Prime rinter(ow?fer); 
pocepriater (null string); 
dmattcaid( ACTIV ); 
END IF 
END IF; 


[ieee red print (u.ad.medic.change) 
Mie prosrareauait = saig ToaN 
Mmuncddmeaic.status = onbeard TEEN 
buffer := ONBCARI 


buffer := DEPARTED ; 


Emteprinter( MEDIC/ & tuffer & ye 
IF u.ed.mredic.arpn.change TEEN 
print comment ( METIC ); 
END IF; 
Mieaction_is(draft) TEEN 


eat 





free oc atd( MEDIC ); 
Nie ir? 
ee 5 


= 


EN ¥ 
Pe recuired print (u.ad.reporge.change) TEEN 
CASE u.ad.reporg.new rep ao Ges ae 
WEE EN cno => buffer := "CNC" 
WEEN cincpacflt => buffer = “CINCPACELT ; 
MEPN Cliclantflt => buffer i= CINCLANTFLT™ , 
WHEN cincusnaveur => buffer := CINCUSNAVEUR ; 
SNe GAS F3 7 . . 
rut rrinter( REPORG/ §& buffer & "/ & 
lead. heDpOnesa te Gn /7 is 
Pe “Wead.,reporg.ampn.changze THEN 
greet - comment ("REPORG '); 
END IF 
If period Bees caveat Glen 
Gimetucatd( REPORG ); 
END IF; 
Ree 1; 


Mereavirec print(u.ad.verify.chazge} TEEN 
IF w.ad.yveri: ive teed ude vete= Valid Raa 
cee se t= VALI ; 
RLS? . 
poster -= CORRECTZr ; 
END IF; : . ee 
Rueben ( VERTHT/ S8tufter &  // >; 
Peueoamvcrify.aion-chanzge TENK 
nt comment( VERIFY }; 


aod is drart) THEN 
t_aid( VERIFY ); 
; 


aetioa is(log) THEN 
TE( COMMAND. AMP); 

LETE “ACTIV. AME); 
Pierre MRT IC. AMP ) 5 
LELETE( REPORG.AMP ) 
TELETE( VERIFY.AmMP } 

ELSE NULL; 
END If; 


Pomere tuna tie altered acmia set 
2ND process administrative; 
ENT uradmin; 


WN 
cn 
N) 





BeomeaGr urajr IS 
=m S DaCkase provlaces Maecess to the AIR process 
pammer UNITREP construction 


PROCEIURE process air; 
——arain dir Subprogram *or ectl@ns other than 
-~- rodify (which is in urajirl/2/3 of unitrep3) 


ONT urailir; 


A) 
cn 
CN 





Wie Strlib,io, == “JENUS/ ALTA Li braze 
Dirt 1 oO , 
reel, 
urglobal, 
Uma Crepe,trairsB; 
PoereeGh CTY urair IS 
eS printio, 
upeltl, 
Urewo cal , 
wa Crepes urai rr}; 


Same aovides orocessing of UJNITPEP air situdtrsas 

Tae ondlieactions with the emeenticogmor moder y 
socata Sets AIRAUTH, CREWAUTF , AIRSTAT. CHEMETAT, 
-- RECCN and corresponding DELETES are supported oy 
-- prair(x) 


mwoe,del,auth: STRING; 
big_string: STRING(145&); 


PiOctvURReZero lecatton(isj: IN INTEGER) IS 


aaecemos all Status inforrdtion for 4a p 
Second it type(i) and location( 7) 


BieeGese Ff 


( 


PEGIN 
-- zero location set (i,j) 
u.ar.ac type(i).location(j).change := FALSE; 
Weocedc Gyoe(i).ilccation( j) delete := FALSE; 
IF j = 1 TREN 
=m Oresent positron 


Hoa. ac type(i).location{3).iss += - 3 
ELSE 

Heaeeee tyoe(i).lecation(ijmeiss := gall striae; 
ENT IF; 
W.drwac type(i).lo@ation( j) .airstateehanzge := FALSE; 
ieaeacmiype(i).locatio1(3).airstatedelete := FALSE; 
ainewaic suype(i).location( j).airetat.poscetsed := twod; 
Weer.ac type(t).location(+).airstat.frc := two; 
U.ar.ac type(i).location(j).airstat.rmre := twod; 
u.ar.ac type(i)}.location(j).airstat.umrc := two; 
U.ar.ac type(i).location(3) .airstat.amp1.change ? 

= Pabst; 


Meareac wype(i).location(i).airstat.amrpn.. 

7 nurter_ of_lin 
U sairs ac -typer! noid. G 10.3 crewstat.change := FALSE; 
u.ar.ac type(i = 
ieearedc. tyne 4 = 
Mmeareacs sypeCi 
Usemerdes type(d 


ies ee 

).location(?).crewstat.delete 
) loceatiton@)) 2crevctat. forred 
).location(ji).crewstat.ready := twod; 
).location(j).crewstat.ampn.change 





u.ar.ac type(i) .lecation(j) .crewstat .arpn. 


AUNGer SO melines.s—= Us 
Ued@adestype(!).locatton(}).récor.chansé := FALS#:; 
u-ar.ac_type(i).location(j).recon.delete := FALSZ; 
Hepeicew ec bype (i ).location(i).récon. 

ees = @; 


u.ar.ac_type(i).location(3).recon.ampn.change 
u.ar.ac type(i).location(j).recon.ampn. 
Quer sO2otInes <= 4; 
Pen Zee desde ecou LCC? 
u.,ar.ac “type(i). LoOcavion( 1) .frecOn.cavauility (2 
See les pee ey 
END ICCP; 
Mipezers location; 


PRCCEIURE zero_ac_type(i: IN INTEGER) IS 


Dueosmeune Ss tatbUS IntOrnal lou for “a particuidr 
Scene nadie | ye 


BEGIN 
Se cm Ome lit adel hems 

u.ar.ac_type(i).change := FALSE; 
u.ar.ac type(i).delete := FALS#; 
Weeneciomeycedi).1Ss ¢= null string; 
U.ar.ac tyve(i).ac_auth.change := FALSE; 
u.ar.ac_ type(i).ac_auth.deléete := FALSE; 
Meameccetype (i).ec auth.iss := twod; 
Weermetcetype(i).ac auth.arpai.chenge := FAISE; 

m: 

ie 

Jas 

ee 

- 


Wean.cac “tyre( créws auth.cnange SAlsoa, 

Srewo aUthecetere FALS £3 

sCreWwS -autmeiss 2= twod, 
Ueareac type crews auth.arpn.change := FALS#; 
u.ar.ac type(i).crews_auth.ampn.nurter of lines := 23 
u.ar.ac_ type(i). number of locations := 1; --home plate 
PCR EN 1. .max locations ero 

zerc_location(i,i)3 

ENT LOOP; 

Bie =ZecOmacnty DC; 


U.ar.ac type 


i 
1 
al 
i 
i 

u.ar.ac type(i).ac_ auth.arger.nymber of lines := 43 
i 
iL 
u.ar.ac type(i 
iL 


meCCrhURK = orecess eir IS 
Ceeeeourla Oy—-—- Int tO Str, 'xtract ,fosition,Leneth 
MSE io; ~~ O0pen.CLOSE, DELETE CE LINE 
Vea Memod ification ealeoriuim for air cata 


FUNCTICN print with delete(deletead: BOOLEAN) 


™ 
(n 
cn 





RETURN ECOLZAN I5 
~=- us@€d to determine if a deleted set is to be 
—- Trinted during message preparation and draft 
= Cd@eument printing 


BEGIN 
Pe Ceetron is(prinneAND deleted ) 
OR 
(action is(draft) 
AND NCT program.message transmitted 
AND deleted) Tea 
HOPURN TRUS; 
ELSE 
RETURN FALSE; 
ENT IF; 
ENT print with celete; 


FUNCTION print wo _dcelete(changec,deleted: 3CCLEEN) 
Re RN EOOLEAN 15 
== usec to determine if a set is to be printed 
——- with or withcut a delete curing prints, 
== Verification wmnd drafts 


3EFGIA 
IF (action_is(print) ANT changed) 
of : 
se mioanic (verify) AND NCT deme ted) 
OF 


(action is(draft) AND (NOT deleted;) TEEN 
RETURN TRUE; 
ELS: 
RETUPN FALSE; 
eee Lh; 
Meee rintew) celete, 


PEGIN 
Imeeaction is(neww) TEEN 
HCcr 
success := TRUE; 
Uearschantce := FALSE; 
eve el Usaremmber, of cas viyoes. ECOP 
U.ar.ac type(i).change := FALSE; 
IF u.ar.ac type(i).delete THEN 
WOR cs IN i.smaxoac types—2 LOCP 
U.ar.ac type(z) := u.ar.ac_type(z+l); 
ENT LCOP; 
ianndr. umber of ac _tyoes 7 9 TPEN 
Meade mMoer Of acoty Res = 
wean .nuueocer Of ac ty pese1, 





Priel Fs 
zero_ac_type(max_ac_types)}; 
success := FALSE; 
ENT IF; 
U.ar.ac _type(i 
U.ar.ac type(i 


K ~-dC @auth.change <= FALSE, 
IF u.ar.ac_ type 

( 

( 


ac_auth.ampn.change := FALSE; 
i).ac_ auth.delete TEEN 
u.sar.ac type(i). 
Meme Jac type (i). 
ENT LF; 


ac auth delete := FALSE 


( 
i 
WiwaeC aut tess) <5 Gwe ; 


u.ar.ac_type(i).crews_auth.chanze := FALSE; 

U.areac type(i).crews auth.arpn.change := FALSE; 

IF u.ar.ac _type(i).crews euth.delete TEEN 
u.ar.ac_type(i).crews auth.dcelete := FALSE; 
u.ar.ac type(i).crews auth.iss := two} 

EN h; 

teem 1. .Uigreac type (i) .nurber cf locaticas 


Leoe 
Wear.ac_ type(i). Location( j) change o= EIMeOE : 
MMi.ar.ac type (i) .location(i).cdelete ome. 
«ar .ac_type(i is). location(}). aelete := FALSE; 
Pore, JN je hax ecations=-1 LOCe 
Deeh.ac mye tl) orcet tour z) == 
Le ciate ape ere Oca tom (7 ae, 
Slee Or ; 
ieee ar.ac type anumber sof locations > 1 
THEN 
w.ar.ac type(i).nurber of locations := 
Deo Joc mip Oe (a) Pent veiemO. MilOG 4 ti On Sas ln, 
END IF; 
zero location(i,max_ lecations)$ 
success := FALS#; 
EAD IF; 
Year.ac_type(i).lecation(j).airstet.change 
c=) PAS, 
v.ar.ac type(i}.location(j).airstat.ampn. 
Change := FALSE; 
MAM .ar.ac type(i).locetion(j).airstat.celete 
TEEN 
u.ar.ac type(i).location(j).airstat.delete 
:= FALS=:; 
u.ar.ac_type(i).location(j).cairsteat. 
possessed 
Weompedcmiyoe. 1) .locatiom(4) sairstat. 


twow; 


Q) 


ee tt, ee 


twed; 
u.ar.ac type(i).location’j).airstat. 
twod; 


oe DS oe 
ae Sa a 
0 


O 


Usd. C. twee becamdon | | yams tee 
tTwou,; 
END IF} | 

near .ec type( i) <1 ¢ camion( )). crewstat jchenge 


Lae 





tr taf 
I> 


: 

t-4 
( 
tt 


U.er ac MYsel | bocatlo1( j). crews tat. 
change 
iS Ua? Een) ocation(i).crewste 


:. Gee 


fy 
a 
"9 
ct ct il a 
re» ry 
t- 
(A 
b<4 


~« 
p= 


(1) .location(j}).crewstat.de 
eel. lOCaticd( )) emeustataro 


a 
A: 
(D 


u.a 


“3 
O 
D 


0a 


Oye 


“® @ 


MD Us ct fal 
om P1iD = 


U.aTr.a 


Q 


3 


avy 


a 


Mae § ac Meee). locational )).c#eme tat. re 


EAD IF; 
Weer.ac typeli).location!(j).recon.chac 


oo [3 
iI 


M taj Cy Pera 


ty 


raiD I4~ bt 


Weer. ac Cyeerl . locatton(!) recon Jenoa 


QO) 
tf (D te 


ll - 
AON ~/ 


et te 


PE wedr.ac tyvce (1) alocatdien( 1) srecogad 


D 
ones 


tH 
tei 
2 


ies yer eco 


weee rw urce( iver ocat io ( 


fu 


LJ 
pu 
se (D 
Ie 
Mm 


ref 


C Lea ere Ke recon BOCR 
Reece 7 7me( mealccatlcoi, #). 
Teccn.capability(z) f= sae), Steines 
BUR LCC?; 
IND IF 


% 


rd 
ju W 
-4 
we 


mel LCOP -—- location 
Ee NEE LOC; ~— “ane s 
SX iT WEEN success: 
wae | 6LCCR; 
BUSIF action is(rcedizy) TFIN 
NULL; -- orecéss ac type in UNITRZP3.COM 


= abe © ae Oe oe ae ee ee Se SP oe a Se se Se ee 6s 6 SS eo SE es SP ae cer ea = a Ge ae es oe oe ee Se ee ae es ee ee ee ees ae oe ee 


eur aemon isfprint) €2 aetien is(careit) CE 
action is(ver 


Boni iN 1..u.ar.number ST acwtyres, LCOF 
IF acticn_is(draf?t) THER Wek Pach; END Ir; 


——- si favta Sets 

buffer := “AIRAUTH/ § u.ar.ac_typel(i).iss 

cui GS Ueen- cd Cumtwmmciel | .acuemth.iss & 7/7 ; 
IM prrot with delete( 

U.a5.aC teve(i}.ac_ auth delete) TERN 

orinter(del & buf ; 
priat.we delete( 

U.ar.ac “eee (1). ec autamehemge 





u.ar.ac type(i).ac_auth.delete) THEN 
put_printer( buffer); 
IF t.ar.ac BV y/CCUmmeocucttaeatonaG@uanse TES 
crrint_comment(” AIRATH” & ee iy 
ENT IF; 
END IF; 
== crewauth set 
buffer := CREWAUTE/Y S& wu.ar.ac Upepeli).iss & ae 
& u.ar.ac type(i).crews enth.iss & “// 
IF print_with delete(u.er.ac tyne/i). 
crews auth.delete) THEN 
put_printer(del & buffer); 
EESIfeorint wo delete 
u.ar.ac_tyre(i).crews auth.change, 
U.cP.ac type(i).crews euth.delete) THE) 
put_printer(puffer); 
Peete iemesews such vamp a. cha te 
crint_comment( CR¥ATE & Iat_to_Str{ 
ENT IF; 
END IF; 


IF action_is{draft) TEIN ; 
draft _aid( AIR AUTHCRIZATIONS J; 
END IF; 
a= tyme OCat.40n 
Veer U.ar,2cubype(l)saaroer of locations 
eos 
== at S tab ect 
bysfer 25 CAURGGRY/ Mee 0 erase ere (1). 155.8 
aC Sis 
Wrarnere'c Sthhhe eds Vel. Des Ses Sadar 
/° & u.ar.ac type(i eee Peiss & ofieee. 
& u.ar.ac _type(i). ear Onc aifStet.fre 
"/PMC: 
Sincreac uty pe\1) locdt lagi midgerstalepme & 
lees 
(eepriat with debece! 
iar pCa ek eee cca Gon) seirstat.celete) 
TEEN 


> 


put _printer(del & buffer,; 
ELSIF prirt wo delete! 
u.er.ac type(i).location 


Weairstatacilaneces 
Hear ccatypac) s!¢cate ou” 


; 
i).airstat.delete) 
TEEN 


( 
( 


Lute printer (pm fen) 4} 
eh “Usamedcatypelt)«bocatio4( })) . 
daicstat.ampn.change Tian 
Dees Tecrmrethy SirstA 6 mint to Str(i) & 
pate Omc un.) ) 
2ND IF; 
Fee aes 





, 77 crewstat set 
purrer <= “CRMYOUAT/ “Siar .ac_type(i).iss & 

yeORM:  & 

u.ar.ac_type(i).location(j).crewstat .forred § 
“/- & U.ar.ac_type(i).location(j).iss & 
7 Ret: a8 

u.ar.ac_type(i).location(3j) .crewstet.ready & 

pe 


3 
IF print_with delete( 
u.ar.ac_type(i).location(j).crewstat.delete) 
teen 
put printer(del & buffer); 
ELSIF print wo delete( 
U.ar.ac typeli)sbocation()).crewstat.chauze, 
U.ar.ac type(i).location(j).crewstat.delete) 
TEEN 
pecupriater (surfer); 
IM odin waGmetnoe) (1 )e location(i). 
créwstat.dmpn. change TRAN 
print_comment( CRWSTA & Int_to Str{i} & 
Ieee 6) Siete) a 
ONT IF; 
ENY IF; 
See CO meen 
big string := RECON/ & u.ar.ec type (i) 
jee. ar.acé_tyre(i).location({ j).iss 
IF print with delete! 
Meadpeac type (i}).location( j).recen .debete 


ANT NCT 

u.ar.ac type(i).location(j).airstat.celete} 
TheEN 

put_printer(del & big string & / ); 
LSIF print _wo_ delete! 
u.eareac typeli).locetion(3).récon.change 
umar.ac tyne(i)-location(j).recon.delete; TEEN 
Mone IN Ise U-dn dc ty ce( lle locarior(j) 


RECOM DUMPS rn Onecare ut it {416s LOGE 
bee String :=_0aesstricg «6 
Us cdinedemsey pe (lemetecea (inciaied). . 
recon.capability(k) & / ; 
ENT LOOP ie 
Dee eShmmees= Dig. string &  / ; 
Iijuebenetn( dig string) FC €Q TEaNn 
mon 27 IN REVERSE 1..69 LCOP 
IF big string(z) = “/° TEEN 
number s= Z; 
BAIT; 
END IF; 
SND LOOF; 
MME on tes  mriract( Diels! ring, 14 9 mm@bor—1)); 
DOOR hy ene er raCt oles tthe. ur ber. 


ZED 





Length(big string)) ); 
ELSE 
PUGepain ven bias t rine); 
ENT IF; 
ENT If; 
IF action is(draft) TEEN 
put_printer(naull string); 
put_printer( 
HR Recon Capability Definitions ***¥#**") ; 
more? Iiet,.U.ar.dcutype(t).locationr(?). 
 PEeome number ee LoCe 
Cpen(fyle, TASLE.B-3' ,2ead Onl vas, 
LCCcP 
buffer := GET LINE(fyle); 
[euch mcem by cle NOCd tion (J). 


recon. rr dit eat = 
Extract(buffer,1,Position( ,ouffer)-1) 
THEN 
Pubs obin ve mie er) 
Gish (iy lens 
YXIT; 
ELSIF END OF FILE(fyle) THEN 
CLOSE(fyle); 
Elis 
END IF; 
eve LOOP; 
hire seo r; 
ENT IF; 
Piewecredce type(s )elocation( Pjereconsampm. change 
Tee 


Print comment( RECON & Int_to Str(i) & 
Iss CRU ns 


IF action_is(draft) THEN 
draft_aid( AIR STATUS ); 


ENT IF; 

EAD LOOP; -- locations 
ENT LOCP; T= AC mt eS 
fection 1s(draft) TEEN 

NEW PAGE} - 

draft _aid( "ATP - NEW )3 
PALE TE; 


Peurter.off; 


NI 
Y 
jo 





Rijoms action is({log) TEEN 
—-ec Loans Wow amMoll- 1Cation files 
Ch i IN 1.. max_ac_types LOOP 
ewer t= Int torotr(2) & AMP ; 
CELFTE( AIRATH & buffer); 
[ELETE( CRWATH & buffer); 
Hoe tN l..max Vocations LOOP 
purfer += Int vo Str(1) & int to Str(4) & 
. AMP } 
DELETE(- PTR Sas Reprtrer); 
Deny h( CRYWSTA moter; 
TELETE(” RECON & cuffer); 
END LOCP; 
ENE LCCP; 


_— = oe oe oe oe Oe ee ee ae SD Oe ee ee ee ee Se ee SD Se Se Se eS Se Se 2S! SS Swe SP owe ow SO SS] SS] SSP SS] SS So] SO] SS So] So] SSP eS SS SS ew es es es Se SS Se eS eo as eS a == 


£Loi 
NUIL; 
ENT IF; 


mer process air? 


wo := @8 3 
cel := ‘TELETE/. 5 
are c= SAUTE: ; 
SN wrair; 





PACKAGE Urairi [S 
-- Interface to tne meditication of air data 
PRCCEITURE process ac _ type; 


BNC urairi; 


BeS 





wien io,strlid, 
COA) 6, 
urglobal, 
unr t repr, 
Weal re, 
Ural re, 
ime rr; 

PACKAGE 3CIY vureiri IS 

USE io, =- Cpen ,CLCom Gm LINE 
Striit, —— 
consio, 
ret otal, 
unitrepE, 
iaalr 3. 
Mrairc , 
uUrairs; 


=o rovlaes [ORMMOdCI 1 ication of ALR cata for 
~via ir COnsStruct1 on 


PROCEDURE process _ac_type [5S 


——licid lai tteriace te tae moaificktion of air 

-~ information. The aircrart tyre is selected, 

rte Medi froratteaumue loOcaulo, =s S®mected, 

-~ (procedure process lecation - ureir2) 

=~ then aircraft type at selected location status 
Zt OrmaliloOn asso re sented for troditication 

-- (precedure process status - ireir?) 

-- Tirectly supports AIRAUTE and CHSWAUTH data sets 
ance [Mime ror each, 


index: INTEGER; 
eeeck 1OCatio1: RIOOLIAN; 
BEGIN 
authorization page: LCOF 
fill auth _masx; 
Peds emanuim ber cf ac types Pat max.dc_types TEEN 
pices :— Nae ec types; 
ELS# 
bwoex s= U.ar.numrbver of ac_typesti; 
END IF; 
Cemimeen 1,.2.0cex LOOF 
iiemeareac type i).iss /= null string TEEN 
Duvets ,s lori, blank); 
getxy _immediate(S,slo+i,xey); 
CASE key [5 
WHEN no_input;space => 
NULL; 
WEEN xitab => 
process auth(i,check location); 


(0 
O) 
es 





IF check location THEN 
process location(i); 
fill auth mask; 
EN nas 
WHEN c => -= change name only for misspeliiag 
clear field(1€,slo+i,7); 
getxy_immediate(1€,sloti,key); 
I¥ key /= no_input AND key /= space THEN 
getxy(17,sloti, tuffer,€); 
buffer := Char_to Str(key) & buffer; 
--verify. ac 5 eRe 
Cpen(fyle, TA3LE.8-2 ,Read Only); 
LOGE 
file buffer := GET _LINE(fyle); 
IF puffer = file buffer THEN 
CLOSE(tyle); 
Usdr.dC byoeCily;.1SS i>. vit ter, 
PROces Shaliuni mw, cleeta local lon) - 
if Peheick Wcieetion whan 
Brocess slocaticat i); 
fill _auth_mask; 
END If; 
es ET; 
END IF; 
IF END OF FILZ(fyle) THEN 
CLOSE(fyte?); 


error(23); -- type not in table b-2 
EXIT; 
END IF; 
ENI LOOF; 
REISE 
error(42); =e oat ema Gm ase 
Due Ve, olOtl lect dCmtawme (lt Sse, 
END IF; 


WEEN ques => | 
help( AIR ACCESS )3 
view, Fore. (Anime eae 
finiiead ti mask; 
WHEN OTHERS => 
error(€); --incorréct input 
Poe CASE; 

EISE -- néw ac type 
getxy_immediate(1l€,sloti,xey ); 
igesey/—= A0,1input ANT@xey 7-—sSvace TEEN 

Peer i? sic ion ser, 6 |; 
buffer := Char _to “Str(key) & buffer; 
--verify ac_type 
Open(fyle, TA3LE.3-2 ,Read Only); 
BeOP 
file buffer := GHT_LINE(fyle); 
IF buffer = file buffer TEEN 


no 
mM 
cn 





CLOSE(fyle); 
Hea hedce tyme. 1j)415S <%= butter; 
Udr DU OeR oll dc ty ves := 
aren vere Ot maCu ty OCS tel 
process auth(i,check location); 
Pe CHecieiceauion: LF aN 
process location(i); 
tea bom as ty 
END If; 
EXIT; 
ENT IF; 
IF END OF FILi(Zyle) TEEN 
CLOS?i(fyle) ; 


error(33); -~ type not in table b-2 
EXIT; 
PNT EE; 
Eee OCP; 
arr 12; 
END IF; 
ENT LOCP; SO 


tlank inst_areéa; 7 
Pleat, 07, “ENTER> to Contiaue, anter <I> to  & 
“Reselect: )3 
reselect := mark(44,17); 
WermeautnonriZation page WEEN NOT reselect; 
ENT LOOP authorization vdage; 
Miieprecess ac type; 


BENT urairi; 





PRORAGE uraired IS 


p—ueearenrace to air authorizations and locetion 
—— information 


FROCEDURE fill auth_mrask; 


FROCEIURE process auth(i: IN INTEGER; 
check location: OUT BOCLZ#AN); 


FROCELUFE process location( i: IN INTEGEP); 


END urairé; 


ZIG 





wITH straid, -~JANUS/ATA library 
consic, 
ieee D3, 
Urasy os 
wr tie. 
Wee ok, 
ine eC paul, 
wralrs; 
PeemAGE SCIY vrair2 IS 
Meme Strlit, =X trac t 
asia, 
unitrevs. 
rai re. 
We Ube. 
mune lel. 
Wee eC Eas 
Urawrs; 


PHOCEDUPS process location( i: IN INTEGER) IS 
USt striib; 


So oUPemmroent tO Modiuty status int’ormation at a 
=a trcued i Locaticn 


Eee URS La ‘catioa _mask [5S 
Vee ctrne ib = 8 Kt eat 
EIGIA 
vorder; 
pmeny (0,1, e8ER = LOCATIONS ); 
muy ae, ommenircraft Type ); : : 
pike (ens, ACCESS ); putey(4¢2,"2, Lecation ); 
em l.2max bocetions LOCE 
eumev(S ,Sletz, (2) }3 
mite ce, 5l0+2,Extract(dasnli.! 52) ); 
“NT QyOCP; 
putzy(?,12,dashin); 
Pryor y ime, 15, <> at ACCESS ( ) sext to desired & 
ieca tien 9a F 
ieee, 16, (qulonatic Entry Into first empty  & 


‘location for NEW ); ; 
muerte , 17 , cr, MOtctamee a ogation 1dme —— & 
cho FSi CNLY 5 
putxy (12,18, x for EELP ); : 
mitxy(i2ee¢. <PNTER> for next ( ) ); 
UNC location mas} 


Pee@etdat fili location wask Ts 
EEGIN 
location mask; 
Pulley (4eeenu.ari,de. type(i).4 ss); 
Mere cual eT de ty pei!) .oumrcter of locations 


NS 
MH 
(D 





ECOFr 
Die een oot 2. uwearecac type(i).location(z).iss); 
ENE LOCP; : ; 
Pury oe. SLOTmOM A Pra ) ; 
ENT fill location mask; 


index: INTEG#R; 
3EGIN 
healiton page= LOOr 
fill location _rask; 
IF u.ar.ac type(i).nurbper of Locations >= 
Max locenmors TRaN 
Midetro rads Locations; 
lk Sed . 
jn@ieres= U.dr.dc typeti,;.nuirber_ of locations-+1; 
ENT IF; 
ieee en 1,.index LOOF 
Miieateac, t¥yre(i).location,j).iss /= 
mull string TEEN 
getxy imrmediate(id,slo+j,key); 
CAse® rey 15 
WeeiN mo innut;<cpac 
NULL; 
WEEN xitab => 
process status(i,j)3 
Eee Peo ed vis One Mas 25 
WEEN c => 
IF ¢ /= 1 THEN 
getxy_immediate(32,slo+j,xey); 

IF key /= no_input AND key /= spece THEN 
clear Fiesla(J2,slo+i,32); 
putxy/32,slo+j.Char to Str(xey)); 

Petzy cee clo os ut ferme ) 5 
burfer t= "ser 66 “Str(xey) Spun fers 
u.ar.ac_type(i).location().iss 


=> 


mM 


DErOCesSsmoveumsil , 1) 5 
fill location _rask; 
eis 
errer(3€)3; <-- invalid location change 
mit xy (oc, 510+), 
War .ae ty cell) -location(}).iss); 
END IF; 
ELSE 
error(37)3 
-- cannot change horeplate location 
FND IF; 
WEEN ques => . 
help( LOCATION ); 
fill loca yiron mete, 
WHEN OTHERS => 


00 
Sy 
«) 





error(€); --incorrect izrput 
ENT CASE; 
Se —= ie We liGe came 1 
Serva nmediatelsec,sloti,ney); 
Ik key = no_input OR x@y = space TEEN 
He; 
ELSE 
eetxy (oo ,slors, burfer ,29); 
buffer := Cher to Cotes & vuffer; 
U.ar.ac type(i).location’j).iss := ruffer 
U-ar.dc type(i).nurber of locations := 
Toeeete mello imate. ote: PLons + 1; 
Frecess status(i,})3 
Mtetocation mask; 
ENT IF; 
END IF; 
PRE LGCP; 


Byeankeingt aréa; 
putxy (2,17, <ENTER> to Continue, ENTER <X» to ” & 
“Reselect: ); 
reselect := mark(44,17); 
EYIT WEEN NOT reselect; 
*AT ICOP location page; 


EPP process Location; 


eee Lure auth mask {5 


3EGIN 
DOReCe Ts 
putxy(%,1, AIR -— AUTECRIZATICNS’ ); . 
pinexy (1€ pa, Adrcralt “alrcrart Crews ©& 
Deployed ); . 
BURY yo 5. “ACCESS Tvpe Siero ed eae 16. 
Authorized EOGatT Ons 5 
DON Nel max ac types LCcP . 
putxy(4,sloti, ( ) 9 -"=--=- coo ce 
== oO) =a { ) es 
ENT LOOP; 


Dmtexy (0,13, ee . 
muemaueei4 = "<C> to CHANGE, <D> to DELETE, <R> to & 
“RESTORE, <A> 0 Mie fOr ELD); 
plaeaeeesds, Tt <X> POR aNCCeSS a, ) 5 . 
puregeteec, AtMACCHSS ( Jesse sees es ess OO 
"<C> to change Type (MISSPELLED CNLY) )5 
noir At at Authorization { }....<C> <D> <2> & 


Be); : 
putxy(Z,18, At a Location ( )........ ~<X> to view & 
‘the Lecations of the tyve aircaft ); 


putzy (22,20, <FNTER> for next ( } ); 


Ge 





END auth mask; 


PROCETUP: fill_auth_ mask IS 
BEGIN 
auth mask; 
FOR i IN 1..U.ar.numper of_ac_ types LOOP 
Doe be, slot) ,U sar ame type i) aiss ); 
IF v.ar.ac_type(i).delete TEEN 
EUGSy (S551 Ota @ Taek ) 5 
ENI IF; 
IF u.ar.ac_type(i).ac_auth.change THEN 
meee sloti, star}; 
IF u.ar.ac_type(i).ac_auth.ampn.change TEEN 
putxy (38,sloti,a mark); 
Sheeler; 
ENE tS 5 
iF mar sdes type (i)eac auth delete TEEN 
DUULY (aGe, clO+imed mark); 
ENT Is; 
Blames ioe ,Us.dnaeac type(i}.ac @auth.iss); 
IF u.ar.ac type(i).crews auth.change TEN 
myc. sict+i,ster); 
u.ar.ac_type(i).crews auth.ampa.change TEIN 
pute cc.slctiwya mark); 
EAD IF; 
ENT IF; 
I} @tsec tvype(i).crews auth.celete THEN 


ru 
If 


pey(o@,slo+i,d@ rark); 

LF; 

iv 

Diy Cece slOniad we tO Striou.dneacsvyoe( i). 
nurber cf locations)); 


EINE LOOF; 
ioc ll auth mas; 


PROCEIURE prccess auth(i: IN INTEGER; | 
sec c hOcCal Nome OU Le SOCh aN) 15 
BEGIN 
rodify_airauth: LOOP 

muiece. sc loti ,plankgis 
getry_immediate(33,slo+i,#ey); 
CAseemey IS 

WEEN no input;space => 

EXIT rodify_airauth; 


WEEN c => 
Wumiwareac. type(i).ac.auth.delete T San 
erroriol); -- deleted/cant modity 
Wie? 





EeOP 
buffer := getxy_digits(4@,sloti,2); 
IF buffer = null_string THEN 
putxy(40,sloti, 
U.ar.ac type(1).ac auth.iss); 
BRIT; 


ELSE 
Ween edC typeli)js.ac auth.iss <= burfer, 
u.ar.ac_ type(i).ac_auth.change := TRUE; 
u.ar.ac_ type(i).change := TRUE; 
mae Serie, Star); 
putxy.\4@,slori, 
Uae dG eiamle i) rclommc uintenins Ss i; 
Pe lS 
END If; 
ENT LOOP; 
END IF) 
WRENN a => 
IF u.ar.ac_type(i).ac_auth.change THEN 
process comment( AIPATE & Int Lo Stor (tte, 
u.ar.ac tyve(i).ac_auth.amopn); 
fill auth mask; 


Mos Sue 
em On ey ) > --no sét to arolify 
ENT IF; 
WHEN d =D 
IF u.ar.ac_type(i).ac_auth.change THEN 
error(35); ~- set changed, can’t delete 
fboe 


Meor.ac type(i}.eC authn.celete := TRUE; 
putxy(3€,sloti,d mark); 
IND IF3 
WHEN r => 
Paiedr sac _type(i ).ac_ auth.delete THEN 
u.ar.ac type(i).ac_ auth.delete := FALSE; 
putxy (38,slot+i, plank); 
ELS#® 
error (34); -- set not celeted 
ENT lf; 
wFEEN ques => 
help( AIRAUTS ); 
fill _auth_mask; 
WEEN OTBRERS => 
error(é); -- incorrect input 
ENT CASE; 
END LCOP rodify_airauth, 


mo@irty crewauth: LOOP 
putxy(47,slo+i,blank); 
zetxy immediate(47?, slo+i,xzey); 


eae 





CASE key IS 
WEEN no_inputispace => 
FXIT wodify_crewauth; 


WEEN c => 
IF u.ar.ac type(i).crews auth.celete THEN 
error(31);} -- deleted/cant modify 
ELSE 
TOcP 


buffer := getxy digits (54,slo+i,2); 
Ik buffer = null_string THEN 
Betwy (fo astord . 
U.ar.ac_tyzre(i).crews_auth.iss)}; 
EXIT; 
FIS# 
u.ar.ac type(i).crews autn.iss := buffer; 
U.ar.ac_type(l).crews_auth.change := TRUE; 
Du Gey On Shor s (ae) 
u.ar.ac type(i).change := TRUS; 
BuUt&yY (S4,5)071), 
u.ar.ac_type(i).crews autn.iss); 
EXIT; 
END IF; 
2NI LOOF; 
(NT IF; 
"EEN a => 
[F u.ar.ac_type(i).crews auth.change THEN 
process comment( CRWATE & Int to Str(i). 
U.ar.ac type(i).crews auth.ampn) ; 


fill _ auth_mask; 
ELSE 
emner(27 ); = 2On ce Umome Ol it 
END IF; 
WEEN cd => 
iste ar.sdc type(i).¢rews auta: change ipEes 
error(3£)}; -- set changed, can’t delete 
Meo 


u.a@r.ec type(i).crews_ auth.delete := TRUE; 
putxy(S@,slot+i,d mark); 
ENT IF; 
WEEN r => 
IF u.ar.ac_type(i).crews auth.dcelete TEEN 
u.ar.ac _type(i).crews auth.delete := F 
Muery (Se ,slotintladias 
Gho2 
error (34); -- sét not deleted 
ENT IF; 
Wee egues =? 7 
help( CREWAUTE ); 
fill auth Mask; 
WHEN OTHERS => 
error(6); ~- incorrect input 


Ni 
<I 
CA 





ENDL CASE; 
ENI LOQP modify crewauth; 


check location := rark(62,sloti)3 
ENT process auth; 


END urairé; 





PeokAGEK urairé IS 
-~- Interface to air status information 
Cre Ge wore NT $= £5 =— SC2ee2 —12ne Cams 
PooCeDURE blank inst_aréa; 
FROCELUFPE process status(i,j: IN INTEG2R); 


mee Wralrd; 


Nv 
a 
cH 





WetH io,strlib, ==J ANUS / AL Ae comme, 
cComisio, 
Umer tl, 
unitreps, 
Uralre, 
Writ, 
urglobal; 
FACKAGE ECLY urair3 IS 
USt consio, 
Mee Gl 
Uniineps, 
oral rs. ; 
Wee 1 1 
urglotral; 


Baelus package provides the routines necessa -y to 
Emeicarty air Sbaetus inforraticn. 
-- (AIRSTAT, CREWSTAT, RECCN data sets) 


PROCEDURE? tlank inst_area IS 
BEGIN 
Steen 14 ..22 LCCP 
Puree 0o.y,0lankln) ; 
VME COL, 
ENT tlanxk_ inst area; 


PROCEIURE prccess Status(i,j: IN INTEGER) IS 
totweuclib; 


FROCETUSS recon _masx IS 


BEGIA ; 
Boimy ie .o,. () -3- Reconaissance Capadility 
ee lege = )5 . 

Mereeere hl, =—-=—=-—° .SSSeS>-— eS a a & 
aaa ae -—_- + Ys , 

Pease le, Sooo. “seSSs-- =~ oa O 


Pivleerecon ask; 


Pome Status rask IS 


USE strlib; —- EXtrect 

REGIA 
EOrden, 
perry (¢,l1, AIR - STATUS }; : 
mieux y (0,3, eiiecreart Type ------- 3 
cutxy(Z1,3, ( ) iLoeae IAN Is 
puumy (42,5, Petract(dashla,1,22)); 
cutry(6,5,- -1- Aircraft \; 
muexy (45,5, ( ) -Z- Crews ); : 
putxy(z,€, Possessed BMCweEMO. NVE ); 
putxy(48,€, Formed Ready ); 


oe 





putxy(£,7. —- )j putxy(16,7, -- -- --"); 
putxy(&@,7, -- -- ); 

recon Task} 

putxy (2,12 »dashin); 


putxy(@,14, ENTER <C> - to CEANGE - “ 6 
(in eietace! 2,5 only) )5 
Piayagey ey <C> =) te DELETE - (at Location will  & 
“DELETE ALL information)’ ); 
putxy(&,1€, 
<2> = to RESTORE - (restores deleted fields)”); 
EU ves, 2 0, “ 
a eCOm rly win ficldc 252 only) )5 
Muevcset ea, <?> — for BRIE = (all fields) )3 


putry(@,1S, THEN: ENTER Required information.” )}3 
putxy(8,2@, (an <ENTER> with no information is ° & 
“assurmed to be NO CHANGE)"); 
ENT Status mask; 


PROCELIURF fill_recon IS 
3EGIN 
réecon_mask; 
Euery es, S, 
u.@r.ac type(i).location(j).recon.capability(1));3 
HOt Ne c,.c LOOP 
rutxy (10+(k =f ig 11, 
Wear.ac type(i). location(}) sGecodecava pills ty (sels 
Pie oo CPs 
Meee’ «sli LOOP 
putay(10+(4-7) "11, ae 
teaesac type(i \location(j). Rocomacd paola ty (4) 
be Cr » 
If u.ar.ac type(i).location(j}.recon.delete TEEN 
putxy(12,9,d_marx); 
aol’ eer .ac type(i).,location({ j).reécon.cheange TEEN 
putxy(12,S,star); 
eh edie. ac _type(i). location(j).recon.ampn.change 
THEN 
putxy{14,9,a_rark); 
ENE IF; 
UNI IF; 
Sil le recon; 


Pe@tenprk fill status _rask fs 
BEGIN 
status mask; 
putxy(14,3,u.ar.ac_type(i 
mitoewuee.o,U.ar.ac typeil! 
ee 2 CRIN ; 
rutxy(48,Z, EOME PLATE j3 
2NI IF; 


ees 3 
) ee ey. 2) 


277 





IF u.ar.ac_type(i).location(j}.delete TEEN 
EUUZY (Se,0,dumenic: 
ELSIF u.ar.ac_type(i).location(j).change TEEN 
Buexy (Sei «Sita 
ENT IF; 
If u.ar.ac_type(i).location(j).airstat.delete THEN 
putry(1¢2,5,d_ mark); 
ELSIF u.ar.ac_ type(i).location(j).airstat.change 
THEN 
PuUtry (egos tar )5 
Ieser.ec type we). Wocetio4( j). 
airstat.ampr.change THEN 
DUG le, Da mark); 
EON Salve, 
ENT IF; 
eRe ce Gat, 
ioe tyoe( i). locdtion‘: j)-airstat.x0ssessed) ; 
Pupil e, (,uear.dc type(i).location( j)mairstat.fme) ; 
PCraeccan yl.ar.ac type (ignlocation(j).airstat.pmrc) ; 
Duet nuccC.uedr.ac tYDe\( te location! j)jwairstat.nmc); 
ieeuecimeac trpe(i),location, j*.crewstat delete TERN 
Enimepeoe. © .¢ mark); 
FLSIF u.ar.ac type(i).location(j).crewstat.change 
TEEN 
tee eee SC Car); 
TF u.ar.ac type(i).location( i). 
crewstat.amon.change TEEN 
pute, 64,5,8 ama“); 
EAD If; 
ENI IF; 
Butry (eg. 7, 
u.ar.ac_type(i).location( ji) .crewstat.formed) ; 
BUtxY (Ge. ¢, 
u.ar.ac_type(i).location(j) .crewstat. ready) ; 
po recon s 
UNe ert Status mas 


PROCELIURE xcrecess recon(index,x,y: IN INTEGER) IS 


== processes a single recon set 


USE io; --Cpen,CLOSE,GET LINE 
oeestrlib; -- BXtract, Persil Cigmm@aar to Str.int_toistr 
EEGIN 


getxy_immrediate(x,y,key); 
GAse key 15 
WEEN no_input => 
NULL; 
WHEN space => -- delete set move others up 


ZS 





FOR k IN index.emax recon-1 LOOP 
Unemeac tyoed(i) .locatioan(] ): 
recon.capabilityix) := 
Ueeamerac &yoe(i) jlicativca( i). 
recon.capability(x+1); 
ENI LOOP; 
User  ,eemnyper!).ilocation( j). 
recon.capability(max_recon) := null string; 
ijaumeremen De (i) .hocatio1( }). 
recon.change := TRUE; 
(f@aear.ac type(i).location( j). 
mecOnm.dumber of capabilities > 2 TEEN 
dea race t yioe( i) .lccation( j). 
recO-.aun wereeh cavabilities <= 
Upaeede type li jelocatiou() ). 
recon.number ote capabilities = 1, 
Bis bees 
fe omer 1 
WEEN CTHERS => [To CCmIcwErGecO4 tO Cle Ser 
MEGuecE-dc tyoe(l).locatlom sor 
recon.numrber_of capabilities >= max récon THEN 
error({(4@)3; -- max sets, delete first then add 
ie 
PGR kK INe@EVERSE index+l..max reccn LOOP 
maecedc type(s) .-locationt)). 
TecoOuacapoulls ty 4). = 
Wedmeec type i). o0cation|( j)- 
recon.cepability(x-1); 


t4 


END LCCP; 
Meco de 5 bel la ceat1 oa. i. 
recon. capatilitetiadex) := aull strings 
Perec Ol» 
bumper f= Char to str( key); 
putry(x,y,buffer); 
Meee (rt) {Veet Le butters) s 
cuemer := burter & file_burter, 
Coumi4yle, TABLE@E-¢ ,kead Cnly); 
ECG 
file buffer := GET _LINE(fyle); 
Phe DU hs Cha. = 
oe a Cm ee sem Oeme rages, 
Post Gam eect tle buéfer) =1),; 
eo files vurfer— Dugdterm toe 
GEOSE(fyie); 
u.ar.ac type(i) -Poceitvon()). 
recon.change := TRUE; 
Wear aCe Uy Oe (eeroce uot) 
recon.capability(index) := buffer; 
uear.ac typeé(i).locetion(j). 
ZOCOR oumoennot capabilities -= 
u.ar.ac_type(t).location(j). 


.e) 


ie 





Fecon Quinte r Ore Cana Sr lities=- 1, 
EXIT; 
END IF; 
IF FAL_C¥_FILE(fyle) BEN 
CLOSE(fyle); 
error(4i);  —-- Ayswalia” recon capability 
Eee kg ae )5 
EXIT; 
END IF; 
END LOOP; 
ENT IF; 
END CASE; 
pereclecad UD 2Ul) <trises que to 
—-- faulty entries/deletions 
POR Geert 1 sama reCewetLOCP 
Peusdreac type (i) wleeatina( ji 
recon.capability(k) = null string THEN 
On eli ekaetdcerecon— 1 bce r 
Wsar sac type 1) eho eau TOs a). 
ToC omme ace Dag ity 1 ee 
Unedsnercts V oN ie jbo et1On 1). 
Beccdmca pant lity ii) 
END LOOP; 
Ue edc ty De \) 2 Ceca oss} 
recon.capability fax recon 
END IF; 
END LGGP ; 
Mone CES] Teco, 


Ihe 
) 


c= oles aes 


BEGIN 
Boeiey status: LOOP 
Moe ocaeus ask; 


Cie Galecaudo1? LOOP 
Dueyic2,o, blank); 
getxy_immediate(3<,2,xe,); 
CASE key IS 
WEEN no _input;spece => 
Wen weneck location: 
WEEN @ => 
IF u.er.ac type(i).location({).change OR 
Meare SUV De 1). Ocarina ly: 
airstat.change OR 
Mecirediemuy De) slecation( }). 
crewstat.chenge OR 
u.ar.ac_type(i).location(j). 
recon.chanzge THEN 
error (35); -- changed, can’t delete 
ees 8 
Mvjereac tyuel).locaruoam@y ) delete s= T2Um, 


nen 





Waarsac type(i). 


u.ar.ac_type(i). 


Us digeac. Uymicisis) Oa tiem) 


Dube (ooo, dmmars) 
putxy(12,8,d4~ rark) 
piwy (52,5, ¢.merc) 
Pubes, oy Gmiars, ) 


BNI IF; 
WHEN r => 
Petar .ac: type (1 


u i 
Umar .ac type i 


eliOC a thos 
ValOca tO aun 


recon .delet@ <= 


Wee Lere sor 


@airstat.aele 


Wear .tc. type (i) .locatior( =). 


Weereac Uy re 


crewstat.deleé 


located 7) 4 


WL. eeacutyoel 1) locatmesis ame ete 7= f 
Urehwae onyoe (i )slocd toon (45). 
et sla co Celene. = oF 


u.ar.ac_typeé(i).location(?:). 


crewstat caelete := sh 


twee co ty pei). locationt 4). 


mie (Oo,o, blank). 
utxy(1@,8,>laax) } 
pumey (o2,5,tlank); 
putxy (12,9, bla‘) } 
ELSE 
emrorico4) 5 -- 
END IF; 
WEEN Gues = 7 
help( LOCATION ); 
weWiesGatus masks 
WHEN CTHERS =D 
Seeereisils = 
ENT CASE; 
ere LOOP check location; 


rodify_airstat: LOOP 
cutxy(7,&,blank); 


getxy immediate(?,5,key); 


CADE key IS 
WHEN no inpdutispace => 
SXIT modify_airstat; 
WHEN c => 
iP weersac. tyre (i). 


Ni 
fO 
2 


TIGGER Eres. 


récon.delete := fF 


not deletea 


te put 


Pearson |). 


airstat.celete 


pew er 


te OR 


THEN 





error (S15) ; -- cant modify deleted 


ELSE 


LOOP 


EN 


buf fers s—etet xy eereeiits (5, 7.2) 5 

WXIT WHEN buffer = aull string; 

U.ar.ac_type(i).location( j). 
airstat.possessed := buffer; 

Wea heccmuy pel). loca t nome) - 

airstat.change := TRUZ; 

URC eonsc eae) 

u.ar.ac type(i).location{j).change :=TRUE; 

EXIT; 

i COP: 


Pile os?  tlearsac vy pe! ).location( j). 


airstet.possesseéd); 


LOOP 


bUece Mae bey dist s (lo, 7,2) > 
Pail Pen DUPPer = nul striae) 
Weat.aCutype( i) etocati on (3). 
SS Gauge tine mea OU 1 ors 
Wear. ac toed) soe] tL onn) a 
airstat.chanze>:-" 12ue,; 
DUC xy (1? ,5,Stan); 
Wear.ec tyoe(l).tocationg(s).change :=TRUE; 
EXIT; 


ENDL LOOP; 
Peo” Ucn aC ty Oe 1) ul Oca thao | ) 


airStavesmern 


mec 


OMiner ‘—atetmn dl eis cer, c ); 
EXIT WHEN buffer = null string; 
Wear .ac tyne (i 2 Nocaticaigd): 
airstat.onc <= buffer; 
Weer .adcmby pe (toca tt om |) . 
airstat.change := TRUE; 
avian? ( OYQIS . Sicalis |) 5 
u.ar.ac _type(i).location(j).change :=TRUE; 
aie 


END LOOF; 
Mumence, fyUsaG-ac atype(t).locaticn(j). 


airstat.pmrc); 


LOOP 


buffer := getxy digits(28,7,2); 
Bei WHEN DUET ET =e sotria ge, 
U.drecc tame ijemocation( j). 
airstdat.ntc := buffer; 
Ma roeic.et ypeti).10cat) on) - 
airstat.change := TRUE; 
BUEXY(1O,e,oten)s 
U.ar.ac_typeé(i)-.location(j).change :=TRUE; 
EXIT; 


ta 
™ 
nN) 





END LOOP; 
putxy(28,7,u.ar.ac_type(i).location(}). 
airstat.nme); 
ieovr tO 1nt(u.ar.dceeyre (i). location 1). 
eirstat.possessed) /= 
Sich Om andl sac aby pe (i) roca toa 1). 
airstat.fmc) + 
Str_to_Int(u.ar.ac_type(i).location(j). 
airstat.pmrc) + 
SU ReuGmeatGiedar.ac type(i).locatton (1). 
airstat.nmc) THEN 
error(28)}3 
-—- possessd/fmc.pmc.nmc don’t sum 
END If; 
ENT IF; 
WHEN a => 
IF u.ar.ac type(i).location(j).airstat.change 
TEEN 
process _comment( AIRSTA & Int_to_ Str(i) & 
cme Gus Grn ay )h. 
Gmdrede ty Deuter OCatiod()).4irstat.aron) ; 
Fill status_mask; 


Bo 
Sqrorie? )4 doe tenieied 
END IF; 
WEEN d => 
iomiear.ac type(i).tecatiow(j).alrstat.chenge 
THEN 
— ~-set modified/can’t change 
oS 2 


Ween acllype (ie location (ai: 
airstat.delete := TRUE; 
Puteoy (12;,5,¢0 mark )5 
—— dl cemce Le temcecan 
IF u.ar.ac_type(i).location(i). 
Pecou .umpermore capabilities 77g 
UHEN U.dteac, ty cell eumocation( }). 
recon.delete := TRUE; 
puny | Pace Gaimam <) ; 
Nees 
FNT If; 
WHEN r => 
imeiwansac ty pet) slocation( i matrstat.cdelere 
THEN 
Umar saCutwpe( 1) ~lacatloais)) 
@airstat.delete := FALSE; 
putxy(10,5, blank); 
ELSE 
error(34); -- not deleted/can’t restore 
END IF; | 
WEEN ques => 


2535 





help( AIRSTAT’); 
fill status_masx; 
WEEN OTHERS => 
error(6); ~~ in correct input 
END CASE; 
ENT LOOP modify_airstat; 


rodify crewstet: LCOP 
putry(4¢,5,blank); 
getxy_immediate(4S,5,xey); 
C45 key [5 
WHEN no_inputispace => 
EXIT modify _crewstat; 
MEGN c¢ => 
IF u.ar.ac_type(i).locatiorn(j).crewstat.delete 
TESN 
Senor oh), -- cant modify deleted 
Les: 
BeOr 
Dine tt Sete heits (5047 v2); 
EXIT WEEN buffer = null string; 
Umar. cc. type(s) elec tion Gn) 
Grewstat.-0nmed. -= otier, 
Heahwac CYNE 1) shocationi) ie 
crewstat.change := TRUE; 
MUtKc?,—,Staey 
u.ar.ac_type(i). location(j).change -= Teun; 
EXIT; 
ENT LOOF; 
Muery (oO. 7,U.are.ac type(i).location( j). 
crewstat.formred) ; 
LOOP 
buffer := getxy digits(62,7,2); 
mills WEEN buffer =“null string; 
Ueatr.ac (type. locenion 3). 
crewstat.re@ady <= buffer; 
Hen ecmt Ype ll ).10Catuem) )- 
crewstat.change := TRUE, 
Dany (52, 5.5 00r)s 
u.ar.ac_type(i).locetion(j).change :=TRUE;> 
EXIT; 
FND LOOP; 
mulexyoe,(siear aCe (asl. loca tion( 4). 
crewstat.ready) ; 
iy Str to _INT(u.ar.ac_tyre(i).location(j). 
crewstat.formed) < 
Siteatoul Ghia sccm type (1). location()). 
crewStat.ready) TEEN 
error(39); --crews ready > crews forred 
FND IF; 
ENT IF; 





WEEN a => 
recrecCeunce 4). location ( j). 


, ,crewstat.change TEN 
process comment{ CRWSTA & Int_to Str(i) & 
[ht elon watedc type(s). locatica( }) . 
crewStat.empn) ; 
MuelecoetuS masi, 
ELSE 
erperie +r) ; —=— "10 Set tC telmpl ify 
ZNI IF; 
WHEN ad => 
IF u.ar.ac tyve(i).losation( j).crewstat.change 
TREN 
Emon (os )5 
ELSE 
Ucn aG Sy Oe emeecd t. 1 Omi yi ye 
crewstat.delete := TRUZ; 


peuxy (ce, Sed Bark); 
PNE TF; 
PRS => 
([weear.ac tyvee(i).locationt 4). 
créwStat.delete TEEN 
MearecC. Gyre) ). loganeo nay ) 
crewstat.delete := FALSE; 
money Se. 5, DiatK); ° 
Sino 2 
Bron O40 --rot deleted/can’t restore 
ENL IF; 
WEEN or ae : 
helnv( REwWSTAT j 
eed “status_™ask: 
WEEN OTHERS => 
error(€); = eG Cmneoc t alm pit 


END CASE; 
ENT LOCP modify_crewstat; 


Mocitvernccon: LCC? 
tutxy(9,S,blarnk); 
getxy_immediate($.9,cey)3 
CAST key IS 
WEEN no_input;space => 
EXIT medify_recon; 
WEEN c =D 
Miueaneac typeii).locattont)).recoa.deleve 
eee 


tq 
=< 


error(31); -- cant modify celeted 
ELSE 

putxy(12,9.star); 

eaicigee ) S Caecrne . 

Date y (a, ie CN Rime ONCE ANG ES «i405 

putxy(8.16, <ENTER> - go te aext item’); 


Zs 





putxy(8,17, space —- erase this item); 
purxy(S,ls, 
all others - add item at this locaticn’); 
DrOCeSSs Brecon (i544). 
eR SiN 2.6 shoo Fr 
process recon(k,18+(k-2)*11,1 
END LOOP; 
EGRes IN Vosl tebe cr 
Process recon(k,i1@+(k—-7)*11 ,12) ; 
END LOOF; 
EAD If; 
WEEN a => 
Peovednede tyvoe l)-locatioa( \;.Precen. chance 
TEEN 
precess comment(' RECCN & Int_te Strii) & 
ISttetOvo Ur | )/eUearsac tyoce(t).Locakron (i). 
recon.ampn) ; 


j-- 
aad 
Se 


Fill status mask; 


ou 
error(27); -- set not changeid/can’t arplify 
END If; 
WREN d => 
minors ac ty7ue(1) )!oGatton .)-recod.chence 
TEEN 
Smrer. oo); -- cant delete rodifiea set 
3b 5)}2 


Umer. ac typel i) slocatioa( i). 
recon.delete := TRUE; 
peexy(1<2,9,¢ mark); 
ENT IF; 
WEEN r => 
IF u.ar.ac tyve(i}.location( j).recon.delete 
THEN 
eer .ec type i) locationg) )- 
recon.delete := FALSE; 
putxy (12,9, blank): 
ELSE 
error(34); -—- not deleted/cant restore 
END IF; 
WHEN ques => 
help(” RECON”); . 
view Canle( TAREE sco Js 
miguel Status Masi; 
WHEN OTHERS => 
emo eG); =e ect blue Ul G 
END CASE; 
END LOCP rodify_recon; 
tlank_inst_aréa; 
Mimoeyareac type(i).locatica() \.delete CP 
Wea act ype())., locdttoniyp.airstat delete OR 
Meoraceuype(l) location(s) -crewstat.delere OR 


Zac 





Usar.ac type(i).location(j).recon.delete *TltE 
FUT(bell); | : 
putry(13,1€, Data is to be deleted. insure §& 
| thetetie correspondiag |; 
putzxy(8,17, data items are adjusted in anotner & 
STATUS dislay. (if required) ); 
putxy(3@2,19, <ENTER> to Coatinue });} 
getxy_immediate(£2,19,key); 
ENT IF; 
tlank_inst_areéa; 7 
peer ei?, <ENTER> to Continue, Enter <2? to & 
Reselect: ); 
reselect := mark(44,17); 
Z2xIT modify_status WEEN NCT reselect; 
Bi eee modiiy status; 
ENT process_status; 


END uraires 





wre 10), ~- JANUS/ADA Library 


einen CAO . 
wr2itl, 

urglobal, 
urlocala, 
unitrepA; 


pAOteGE EFOLY initialA IS 
USE io, sae Den Cus tein f 


Printio, 
Were lL. 
urelobal, 
urlocala, 
unitrepA; 


-- This vackage is used to form: 
-- the initial workfile (OUNITYU@GA) , 

=e Lementseort, tne local data Structure 
Seuune imttial progrem status file (STATUS), 
-- and the initial cross reference file (CROSSPEF). 
—-— When urtést is incorporated the test file 
-- TEST@O@ is also formed. 


Deli. iALA.COM file resulting from this 

-- package should net cte distributed to all users. 
=—~ Culy those organizations required to set the 

-- UNITO@GOA, STATUS and CROSSREF external files 

=- should have access to this code. 


-- UNIT@@QA, STATUS and CROSSREF files are adced 
—- to the originaing units UNITREP MASTER DISK after 
—~—mroitralization has been performed. 


pyle: LB; 
feridiedte: sTRING(16); 


--# test number: INTEGER; 

EEGIN 

a initialize test data ~- sets A:TESTOOO to @ 

-—# [TELETE( TESTOOS ); . 
--# FUT("Creating new TESTZ2@... )+ NEW_LINE; 
-—# Create(fyle, TEST@9O ,Write Only); 
--4 Cren(fyle, TESTOGO ,Write Only); 
a ae festeaurber <= 7; 
--# PUT(fyle,test_number); 
--# CLCSE(fyle); . 
--4 PUT("Put of @ to TEST@@2 complete... }3 
--# NEW LINE; NeW LINE; 





Poi tickeZentne Pprocratmstatus 
BeOeram unit <= ship; 
eofrat.initial entry := TRUE; 
program.print trailer := FALST; 
program .message | os eee >= FALSE; 
FOR i IN action RANGE draft..quit LOCP 
eee current Peete ae) s= FALSE; 
BNL LCC? 
FOR ji IN. areas HANGH pers..local  LOCP 
proeram.current area({i) := FALSE; 
Bh LOCr; 
FOR 1 IN format RANGE msg..text LOOP 
Program.current format{(i) := FALSE; 
five LOCP; 
proeram.printing line := 1; 
ctrogram.workfile := ‘UNIT2S2 5 
DELETE(” STATUS oO: 
mreatve fyle, STATUS , Write Caly); 
Write (fyle,program); 
CLOSE(fyle); 
Pew ite fo STATUS complete... ); 
N2w LINE; NEW _LINE; 


feooreiaiiz2e JNITCO2 
uei.echange := FALSZ; 
2-Li.status.transmitted := FALSE; 
U.i-Status.last serial := 9@@ ; 
iepecteulieerceder report := rALSe; 
Meer see ie Le += : 
meecocmeus current serial <= 9gGi ; 
Se oo, chance >= FALSE; 
lec tauuceamon.nurover of lines 3= ¢; 


meio -age.precedence := priority, 


u.l.message.dtg := ; i 
u.l.message.originator address := ; 

Wee teeccaee.classification -= confidential; 
u.l.message.declassification := ; 


u.-l.operation.underway := FAISE; 
Wemesoneratvion.coceword <= ’ 
Meewroperduion.,.plan org uurber 


=D 


Meeexercise.underway := PALSE; 
u.l.exercise.nickname := ; 


u.l.position.change := FALS#; 
u-l.position.lat_ long := FALSE Pe 
Melero st 1 ON. present. location := : 
Hepeoocrtlon.dte 3= ; 
Welerocit1on.ampn. anes >= FALS#; 


ees 





UeteeessulLOn.arpn .niipber of lines := @; 


ul memerxs.change := FALSE; 
ieewenetearxs.nvmber of pages := 9; 
FOR i IN 1..max_rirks pages LCCP 
Meee remarks$.pazeii).charge := FALSE; 
u.l.remarks .paze(i).number of lines := @; 
END LOCP; 


DELETE( UNITQ2@A )3 

Create(fyle, UNITZZGA ,Write_Caly)i 
Open(fyle, UNIT@?222 Write Only); 
Write(fyle,u); 

CLOSE(fyle); ; 
PUT( Write to MNITZ@ZA Complete. 3 
NEW LIA} NEW LINE: 


IO tesco ross reference 71iie 
Scremal dteE >= C2 a ddhhmrZMMMyy ; 
DEPETE( CRCESHEF 

Create(fyle, CROSSREF ,krite Cnly); 
PUT(fyle, séricl dtg); NE LINES rie 3 
CEGs a(fyle); - 
Dire Pte to, CROSSKE* Complete... }; 
NEW LIE; NiW LINE 


BN inttiala; 


bo 
(O 
GS 





) 


mer io, 
wEecl , 
Me aC ir le . 
Mmeearrs, 
unitrepB; 
PACKAGE ECIY initialE Is 
USE io; 
USE urgltl; 
Usm@ vrair2&; 
Uses uradrin3; 
USE unitrepe; 
Mitwicglize the 5 


=S Je NUS AMARLL brary 


date Strictur= 


EwoU ; 
fyle: 


STRING; 
FILE; 


PROCEDURE zero _location(i,ji: It 
BEGIN 


INTEGER) IS 


zero locatiogr. set (4.5 1) 


( 
( 
( 
c 
U.ar.ac type(i).location( 
c 
( 
( 
( 


Wear.ac type(i).location(i).change := FALS&; 
u.ar.ac type(i).location(i).delete := FALSZ; 
IF j = 1 THEN 
mee OResent DoOSat Lon 
Uecheeracmype(i).locatioz(3).1ss ¢= = ; 
ELSE 
Mayer sacepype(i).location(’).iss <= ; 
ENT IF; 
Meacraomiyre:)).location( j) airetate chen = FALSE; 
eimecemuyne(:).i.ccation{ i) .airstat. delete = FALSE; 
Beaemaemam oe\ i). locations j).airsteat possessed := twod; 
Weareac type 1).location( 3) .aireétat.2mee := twod; 
U.ar.ac type(i).locatioa(!).airstat.pre := twod; 
madueaceuype(1).location( j) -airstav.amc := twod; 
u.ar.ac_type(i).location{ i). 
Gi fFSvatcetpu.chanrz® $= FARSS; 
meccicmrype (i ).location(i). 
alpstdt-aNvpemumverco. lines s= 2, 
Mear.ae type(i).location(j).crewstat.change := FALS@; 
Deomecentype(i).iocation( j).crewstat .¢elete :=-FALSs; 
u.ar.ac type(i).lecation(j).crewstat.formed := tweed; 
W.ar.ac type(i).location(j;.crewstat.ready := two; 
Hearedcmeny pe (ijm@bocation( j). 
rewStat.amon.change := FALS=&; 
: 
joe 
CrewStat.amonr.nurber of lines :="8; 
u.ar.ac_type(i).location(}).recon.change := FALSE} 
u.ar.ac type(i).location(j).récon.delete := FALS3; 
Decameacmtype(1).locatioa( j).necon. 
number of capabilities := 4d; 
Mercemerctcatyoe(i).location(?). 
recon.ampn.change := FALSE; 


<9Ol 





ieomeac typet(i).location{ j). 


recon.ampn.number of lines := @;3 
FOR z IN 1..max recon LOOP 7 
imwar.dc type (i).location( 1). 
recon.capadility(z) := °° 3 
eND LCC; 
END zero_location; 
PROCEDURE zero ac_type(i: IN INTEGER) IS 
BEGIN 

=oecero out all iters 
ean yaceuype(i).change := FALSE; 
Uu.ar.ac_type(i).delete := FALSE; 
U.ar.ac_type(i).iss := ; 
u.ar.ac _type(i). ac_auth.change := FALS#; 
U.ar.ac type(i).ac_auth.delete := FALSE; 
U.-ar.ac type(i).ac_ auth.iss := twog; 
u.ar.ac tyve(i).ac_auth.argn.change := FALSE; 
u.ar.ac type(i).ac auth.ampn.aumber of _lines := ¢; 
u.ar.ac type(i).crews auth.change := FALSE; 
U.ar.ac_type(1).crews auth.delete := FALS3} 
u.ar.ac type(i).crewS auth.iss := two} 
u.ar.ac type(i).crews auth.ampn.change := FALSE; 


u.ar.ac type(i).crews_auth.ampn. See 
u.ar.ac_type(i). number of locations := 1; 


FCR j IN 1..max locations LCCP 
perowhocation(i,3)3 
ENT LCOP; 
mhiteeaerO dc type; 


BEGIN Beane. 
twod 3= @@ ; 
-~ jnitialize UNITGGORB 


-- admin sets 


u.ad.change := FALS&; 
u.ad.command.change := FALSE; 
ieceecommana.cOOLC := + 
iracecemnand.ctge := j 


u.ad.command.ampn.change := FALS#£; 
mydGecommatd.drpn.nurmber of lines 


u.ad.activ.change := FALSE; _— . 
Maderetay.activity_code := CF ; 
u.ad.activ.amon.change := FALSE#; 
Medcdeacuy .dampn .nurber_of lines := 


A) 
( 
NI 


@; 


a; 





Ueaewredic.change := FALS#; 
uead.medic.stetus := onboard; 
u.ad.medic.arpn.change := FALSE; 
u.ad.méedic.afrpn.number of lines := @; 


u.ad.reporg.change := FALSE; 
u.ad.reérorg.new rep wOTE 2= C10; 

teed. DepOrg.d te s= } 
u.ad.reporg.ampn.change := FALSE; 
u.ad.reporg.armpn.number of lines := 2; 


u.ad.verify.charge := FALSE; 
u.ad.verify.feedback ver <= velid; 
u.ad.verify.armpn.change := FALSE; 
Mecdaeverity-dmpn.number of lines := €; 


amar SOUS 
u.ar.cheange := FALSE; 
Wear.numoer of ac_types := 4; 


f5 
FOR i IN 1..Max_ec_ types LCCF 
zero_ac_type(i); 
ENT LOCF; 


DELETE( UNITO@@2 ); 

CWeate(fyle, UNIT2OOB’ Wirt 2 ea) 
Open(fyle, UNIT@223 ,Write Only); 
Write(fyleju); 

CLOSE (fyle); : 
PUT( Write to UNIT@G@3 Complete. 5 
NEW LINE; NEW LINE; 


RNE initials; 
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